[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