[time-nuts] Z3801A, Z3805A Pforth interpreter.

paul swed 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?
Thanks
Paul
WB8TSL


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
> pforth?
> 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.
> Don
>
> 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
> www.lightningforensics.com
> www.sixmilesystems.com
>
>
> _______________________________________________
> 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.
>


More information about the time-nuts mailing list