[time-nuts] Z3801A, Z3805A Pforth interpreter.
paulswedb at gmail.com
Sat May 18 17:19:22 EDT 2013
I also really liked forth many years ago. So fast, small simple and clean.
I still have my forth books and a couple rockwell forth processors.
So Yes how do you get into the system?
On Sat, May 18, 2013 at 4:46 PM, Don Latham <djl at montana.com> wrote:
> This is Really Neat. More info, please, how do you get access to the
> Forth is my favorite language, but don't get to use it much.
> I have two 3801A units.
> I assume you know you can exercise any of the words at any time? May
> have to be stack aware, and ask for output on some of them...what fun!
> You can also make new words out of combos of the existing ones. Need to
> know how the words are stored, and how thw mwmory is arranged.
> Heck. Try entering 2 2 + .
> see if you get 4 as output.
> Mark C. Stephens
> > 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.
> > _______________________________________________
> > time-nuts mailing list -- time-nuts at febo.com
> > To unsubscribe, go to
> > https://www.febo.com/cgi-bin/mailman/listinfo/time-nuts
> > and follow the instructions there.
> "Neither the voice of authority nor the weight of reason and argument
> are as significant as experiment, for thence comes quiet to the mind."
> De Erroribus Medicorum, R. Bacon, 13th century.
> "If you don't know what it is, don't poke it."
> Ghost in the Shell
> Dr. Don Latham AJ7LL
> Six Mile Systems LLP
> 17850 Six Mile Road
> POB 134
> Huson, MT, 59846
> VOX 406-626-4304
> time-nuts mailing list -- time-nuts at febo.com
> To unsubscribe, go to
> and follow the instructions there.
More information about the time-nuts