[Info-vax] VMS Software needs to port VAX DIBOL to OpenVMS X86 platform

mceculski2 at gmail.com mceculski2 at gmail.com
Wed Dec 16 14:08:49 EST 2020


On Wednesday, December 16, 2020 at 1:57:34 PM UTC-5, Bill Gunshannon wrote:
> On 12/16/20 1:26 PM, Simon Clubley wrote:
> > On 2020-12-16, mceculski2 at gmail.com <mceculski2 at gmail.com> wrote:
> >>
> >> YOU DIDN'T THINK I WOULD PASS ON A CHALLENGE DID YOU? :)
> >> THAT WAS AN OLD VAX DIBOL CODE EXAMPLE NOT USING THE FOR LOOP STRUCTURE
> >>
> >> BEHOLD THE POWER OF SYNERGY DIBOL I THINK MY CPU PROCESS TIME WILL BEAT YOURS
> >>
> > 
> > $ set response/mode=good_natured
> > 
> > Bob, you no longer need to use an ASR33 to post to comp.os.vms.
> > 
> > Other input devices are available these days.
> > 
> >>
> >> RECORD MISC
> >>       I              ,D2
> >>       NUMBOT         ,D2,99                ;Default # of bottles to 99
> >> PROC
> >>       XCALL FLAGS (0007000000,1)           ;Suppress STOP message
> >>       OPEN (15,O:C,"TT:")                  ;Open the terminal/display
> >>       FOR I FROM NUMBOT THRU 1 BY -1
> >>       DO
> >>         BEGIN
> >>           USING NUMBOT SELECT
> >>             (1), BEGIN
> >>                    DISPLAY(15,NUMBOT<FORMAT:'ZX'>,' Bottle of Beer on the wall.',13,10,13,10)
> >>                    DISPLAY(15,NUMBOT<FORMAT:'ZX'>,' Bottle of Beer on the wall,',13,10)
> >>                    DISPLAY(15,NUMBOT<FORMAT:'ZX'>,' Bottle of Beer,',13,10)
> >>                    DISPLAY(15,'   Take one down, pass it around,',13,10)
> >>                    DISPLAY(15,13,10,'Hey the Beer's gone, I am out of here...',13,10)
> >>                  END
> >>             (), BEGIN
> >>                   DISPLAY(15,NUMBOT<FORMAT:'ZX'>,' Bottles of Beer on the wall,',13,10)
> >>                   DISPLAY(15,NUMBOT<FORMAT:'ZX'>,' Bottles of Beer,',13,10)
> >>                   DISPLAY(15,'   Take one down, pass it around,',13,10)
> >>                   DISPLAY(15,NUMBOT<FORMAT:'ZX'>,' Bottles of Beer on the wall.',13,10,13,10)
> >>                 END
> >>           ENDSUING
> >                ^^
> > Perhaps you should have run it through a compiler first before posting. :-)
> > 
> > BTW, it's the first time I've seen channel 15 used for TT: in a DIBOL
> > program that I can remember. I always used to use channel 1 as it was
> > the first channel I used to open in a program when DIBOL was the
> > language I was using to write the program.
> > 
> > What channel did others use for TT: ? Is channel 15 from something
> > (such as someone's training sessions) that I never saw ?
> > 
> >>         END
> >>       SLEEP 2
> >>       CLOSE 15
> >>       STOP
> > 
> 
> Well, in DIBOL-11 15 is the highest channel.  Some people may
> have developed a habit (or in house standard) of putting devices
> at the top and regular files starting from the bottom.
> 
> For the curious, there is a DIBOL-11 category on Rosetta Code.
> 
> bill

thanks for the reminder the MCBA package we had ran on a PDP-11 RSTS/E
DIBOL machine before we ported to the VAX. So that is what I was thinking of.



More information about the Info-vax mailing list