[time-nuts] Z3801A, Z3805A Pforth interpreter.
Mark C. Stephens
marks at non-stop.com.au
Sat May 18 11:40:22 UTC 2013
Wow, good call:
p4th D > words
fp_u es_ascii sync_imm efc_rep
pll_rep loop_time pr_hold_cause gps_query
gps_change pstat disable_gps_cmds pr_time_raim
pr_1pps pr_gps_id pr_gps_istate pr_avg
pr_gps_cmds clr_gps_debug pr_gps_debug master_reset
quiet_status gps_query_all init_gps clr_avg
avg q_gps_cable_dly q_gps_php q_eman
eman leapsec crash print_clk_list
log_send pr_pll phase_off lock
pll_debug pll_restart pr_efc efc_wr
force_1pps gps_cable_dly gps_ph gps_php
gps_date gps_time print_bc print_ext_msg
xdop_stat_rate ext_msg_rate print_vis vis_stat_rate
stat_rate print_stat abr_stat set_time
get_time clk_synch debug_psos clear_nv
wr_eeprom dmes_all dmes_curv dmes_spoo
dmes_scpi dmes_root dmes_pllp dmes_klok
dmes_hmon dmes_gpsm dmessage doven
hdac_all hdac_write efc_write pr_adc_avg
adc_ant_curr adc_doven adc_oven adc_m15v
adc_p15v adc_5v adc_temp adc_read
cal s_rep mem_rep ps
user !iodev dev_ctrl dev_write
dev_read dev_close dev_open dev_init
ident mode pause get_v
wait_v signal_v request_x send_x
delete_x create_x jam_x priority
resume suspend delete ver
spawn ?^C my_pid root
watch execute 0x number
unfence fence immediate recurse
does> pad tib count
word type expect interpret
startup words forget ]
[ ['] ' state
base hex decimal .s
u.x u. . (.")
." cr spaces space
emit cos sin >>
<< 2* 2/ 2-
2+ 1- 1+ +!
+ - * /
*/ */mod /mod mod
; : literal constant
create variable ! @
i j k leave
+loop loop ?do do
until again repeat while
begin endif then else
if depth dup swap
drop 2drop cmove> cmove
?dup 0> 0= 0<
< > = xor
not and or true
false halt abort (
2swap 2dup allot -rot
rot c, w, ,
pick fill r> >r
here negate c! c@
w! w@ min max
abs over
-----Original Message-----
From: Poul-Henning Kamp [mailto:phk at phk.freebsd.dk]
Sent: Saturday, 18 May 2013 9:37 PM
To: Discussion of precise time and frequency measurement; Mark C. Stephens
Subject: Re: [time-nuts] Z3801A, Z3805A Pforth interpreter.
In message <6C1FE0E5A70C9640B597F869A899C017032ADF1E at tmpExch.non-stop.com.au>,
"Mark C. Stephens" writes:
>---- Macro?
Try if there is a "words" command, that may give you the machine language names also.
--
Poul-Henning Kamp | UNIX since Zilog Zeus 3.20
phk at FreeBSD.ORG | TCP/IP since RFC 956
FreeBSD committer | BSD since 4.3-tahoe
Never attribute to malice what can adequately be explained by incompetence.
More information about the Time-nuts_lists.febo.com
mailing list