[time-nuts] Z3801A, Z3805A Pforth interpreter.

Mark C. Stephens marks at non-stop.com.au
Sat May 18 07:23:54 EDT 2013


Hi All, I was messing around with receiver before I made it permanoid and come across the following interesting tidbit.
-mark

scpi > SYST:LANG "PFORTH"

pForth $Revision: 1.2 $


p4th D > watch
scpi >

So typing watch exits the interpreter, but it also appears to reboot so don't mess with your master clock now...

The following commands all seem to work, but I could write what I know about forth on the tip of my little finger:
SYST:LANG "PFORTH"
watch exits

---- Macro?
ps
s_rep
mem_rep
cal
adc_read
adc_temp
adc_5v
adc_p15v
adc_m15v
adc_oven
adc_doven
adc_ant_curr
pr_adc_avg
efc_write
hdac_write
hdac_all
doven
dmessage
dmes_gpsm
dmes_hmon
dmes_klok
dmes_pllp
dmes_root
dmes_scpi
dmes_spoo
dmes_curv
dmes_all
wr_eeprom
clear_nv
debug_psos
clk_synch
get_time
set_time
abr_stat
print_stat
stat_rate
vis_stat_rate
print_vis
ext_msg_rate
dop_stat_rate
print_ext_msg
print_bc
gps_time
gps_date
gps_php
gps_ph
gps_cable_dly
force_1pps
efc_wr
pr_efc
pll_restart
pll_debug
lock
phase_off
pr_pll
log_send
print_clk_list
crash
leapsec
eman
q_eman
q_gps_php
q_gps_cable_dly
avg
clr_avg
init_gps
gps_query_all
quiet_status
master_reset
pr_gps_debug
clr_gps_debug
pr_gps_cmds
pr_avg
pr_gps_istate
pr_gps_id
pr_1pps
pr_time_raim
disable_gps_cmds
pstat
gps_change
gps_query
pr_hold_cause
loop_time
pll_rep
efc_rep
sync_imm
es_ascii

--- language?
over
abs
max
min
negate
here
fill
pick
rot
-rot
allot
2dup
2swap
abort
halt
false
true
and
not
xor
?dup
cmove
cmove>
2drop
drop
swap
dup
depth
else
then
endif
begin
while
repeat
again
until
?do
loop
+loop
leave
variable
create
constant
literal
mod
/mod
*/mod
sin
cos
emit
space
spaces
(.")
u.x
decimal
hex
base
state
[']
forget
words
startup
interpret
expect
type
word
count
tib
pad
does
recurse
immediate
fence
unfence
number
execute
watch
root
my_pid
spawn
ver
delete
suspend
resume
priority
jam_x
create_x
delete_x
send_x
request_x
signal_v
wait_v
get_v
pause
mode
ident
dev_init
dev_open
dev_close
dev_read
dev_write
dev_ctrl
!iodev
user




More information about the time-nuts mailing list