VB81

Emulator and emulator development specific topics
RWAP
Posts: 1348
Joined: Thu May 08, 2008 8:42 am
Location: Stoke-on-Trent, UK
Contact:

VB81

Post by RWAP »

Has anyone had a play with VB81 - http://zx81.vb81.free.fr/

Thought it looked interesting, but not had chance to try it out yet.
User avatar
XavSnap
Posts: 1940
Joined: Sat May 10, 2008 4:23 pm
Location: 'Zx81 France' Fb group.

VB81 XuR.

Post by XavSnap »

Hi RWap !

... yes ! Sometimes...

It work properly on my Windows 98...
But, it's a Visual Basic V5 (fr) old release.

You had to install French DLLs on your computer (Xp, Vista...).
Download the "Dskcenter" executable to install needed files.
Also check if the direct X is installed.
Xav.

It don't use exotics runtimes DLL to install in the directory or in the system32 directory !
Xavier ...on the Facebook groupe : "Zx81 France"(fr)
User avatar
yerzmyey
Posts: 1240
Joined: Thu May 15, 2008 10:11 am
Location: Rubber Planet
Contact:

Re: VB81

Post by yerzmyey »

I use it pretty often.
Lately I make a game using this emul. It's probably not bad but I'm not so sure, because my first real ZX-81 will come to me this week the earliest (maybe later).
Then I will be able to compare. :mrgreen:
Anyway the VB81 has simple possibility of saving and not every emul has it (suprisingly).
Byez.
IN NIHILUM REVERTERIS - a big text-adventure game for ZX81: http://tiny.pl/g2m6m
"MONOCHROME" issue 5 - (Spring 2014) free paper/PDF magazine about ZX81: http://tiny.pl/q2m44
ZX81 COMPETITIONS 2007/2009: http://zx81.republika.pl/
User avatar
gus
Posts: 177
Joined: Fri May 16, 2008 10:18 pm
Location: Buenos Aires. Argentina
Contact:

Re: VB81

Post by gus »

The Xav's vb81 version is really good, I think it's a complete new emulator compared with the original vb81.
Using this emulator I do learn a lot about LARKEN Disk controllers programming, 8255 programming, and right now I'm doing some IDE programming too :)
Gus
User avatar
XavSnap
Posts: 1940
Joined: Sat May 10, 2008 4:23 pm
Location: 'Zx81 France' Fb group.

Re: VB81

Post by XavSnap »

A private message to André***

Have Fun!

Code: Select all

# To ANDRE***
# ZxToken/VB81 XuR test.
# ----------------------
# CREATE A TEXT FILE
# AND LAUNCH IT USING VB81 XuR
# FILE EXPLORER.
# HAVE FUN
 
5 GOTO 50

# REM   ECRAN DE CHARGEMENT  
# REM 32X24 XAVSNAP>ANDRE***

   15 SAVE "ANDRe"
   50 GOSUB 4000
  130 RAND USR PRTLINE
  140 LET CMP=IMAGE1
  150 GOSUB 4200
  155 GOSUB 6000
  160 LET A$=INKEY$
  170 IF A$=""  THEN GOTO 160
  200 STOP 

# REM AFFICHAGE ECRAN
 4010 CLS 
 4020 GOSUB 5000
 4030 POKE 16418,0
 4040 GOSUB 9000
 4050 LET CMP=IMAGE1
 4060 LET LIM=(PEEK 16399 *256)+PEEK 16398 

# REM  OFFSET D-FILE 
 4080 POKE PRTLINE +4,LIM-(INT (LIM/256)*256)
 4090 POKE PRTLINE +5,INT (LIM/256)

# REM  OFFSET LIGNE REM 
 4110 POKE PRTLINE+1,CMP-(INT (CMP/256)*256)
 4120 POKE PRTLINE+2,INT (CMP/256)
 4130 LET CMP=CMP-1
 4140 FOR A=1 TO 29
 4150 LET CMP=CMP+33
 4160 POKE CMP,118
 4170 NEXT A
 4180 RETURN
 

# REM  REINIT LA LIGNE REM 
 4200  REM [HEX:\
80,B7,AA,AE,B3,AE,B9,80,\
B1,A6,80,B1,AE,AC,B3,AA,\
80,B7,AA,B2,80 ]

 4210 FOR A=1 TO 29
 4220 LET CMP=CMP+33
 4230 POKE CMP-1,18
 4240 NEXT A
 4250 RETURN 
 5000 LET PRTLINE=(PEEK 16426 *256)+PEEK 16425+5

# REM LDIR sub-routine
 5010  REM [HEX:\
21,90,47,11,AF,4A,01,18,\
03,ED,B0,C9 ]

 5020 RETURN 

# REM  CODES ASSEMBLEUR 
 5025  REM [HEX:\
80,A8,B4,A9,AA,B8,80,A6,\
B8,B8,AA,B2,A7,B1,AA,BA,\
B7,80 ]


# REM LD HL,16514 (PROGRAM OFFSET)
 5030  REM [HEX:\
31,29,00,2D,31,1A,1D,22,\
21,1D,20 ]


# REM LD DE,D-FILE
 5040  REM [HEX:\
31,29,00,29,2A,1A,29,16,\
2B,2E,31,2A ]


# REM LD BC,32
 5050  REM [HEX:\
31,29,00,27,28,1A,1F,1E,\
 ]


# REM LDIR
 5060  REM [HEX:\
31,29,2E,37 ]


# REM RET
 5070  REM [HEX:\
37,2A,39 ]


# REM ??????????????????
 5080  REM [HEX:\
03,03,03,03,03,03,03,03,\
03,03,03,03,03,03,03,03,\
03,03 ]

 # REM Lim=D-File
 6020 POKE PRTLINE+8,0
 6025 POKE PRTLINE+7,32
 6030 LET LIM=(PEEK 16399 *256)+PEEK 16398
 6040 LET CMP=IMAGE1+(25*33)

 6050 FOR B=0 TO 4
# SEND LINE TO...
 6100 LET CMPD=CMP+(33*B)
 6110 POKE PRTLINE+1,CMPD-(INT (CMPD/256)*256)
 6120 POKE PRTLINE+2,INT (CMPD/256)

 # FROM LINE TO...
 6140 FOR A=23 TO 19+B STEP -1
 6150 LET LIMD=LIM+(33*A)
 6160 POKE PRTLINE+4,LIMD-(INT (LIMD/256)*256)
 6170 POKE PRTLINE+5,INT (LIMD/256)
 6180 RAND USR PRTLINE
 6190 NEXT A
 6300 NEXT B
 6400 RETURN

 6900 FOR A=1 TO 50
 6910 NEXT A
 6920 RETURN

# REM ??????????????????
 7000  REM [HEX:\
83,83,83,83,83,83,83,83,\
83,83,83,83,83,83,83,83,\
83,83 ]

# REM  DATAS IMAGE1          
 9000  REM [HEX:\
80,A9,A6,B9,A6,B8,80,AE,\
B2,A6,AC,AA,9D,80,80,80,\
80,80,80,80,80,80,80 ]

 9001 LET IMAGE1=(PEEK 16426 *256)+PEEK 16425+5 
 9002  REM [HEX:\
 00,00,00,00,00,00,00,00,\
00,00,00,00,09,00,00,00,\
00,00,09,00,00,00,00,00,\
00,00,00,00,00,00,00,00,\
12,00,00,00,00,00,00,00,\
00,00,00,00,88,00,00,00,\
00,00,00,00,88,00,00,00,\
00,00,00,00,00,00,00,00,\
00,12,00,00,00,00,00,00,\
00,00,00,00,00,00,09,00,\
00,00,00,00,0A,00,00,00,\
00,00,00,00,00,00,00,00,\
00,00,12,00,00,00,00,00,\
00,00,00,00,00,00,81,04,\
00,00,00,00,87,82,00,00,\
00,00,09,00,00,09,09,09,\
09,00,09,12,08,08,08,09,\
09,00,0A,08,08,09,00,05,\
84,00,00,00,00,07,85,00,\
08,08,08,08,08,08,0A,0A,\
00,00,09,08,12,0A,08,08,\
08,08,08,00,00,00,00,00,\
86,07,00,00,00,00,84,06,\
00,00,08,08,0A,08,00,00,\
00,09,08,08,08,12,09,00,\
0A,08,08,08,0A,0A,0A,00,\
00,82,81,00,00,00,00,82,\
81,00,08,00,00,00,00,09,\
08,08,08,08,08,08,12,08,\
08,09,00,0A,08,08,09,09,\
00,00,05,85,00,00,00,00,\
05,85,00,09,00,00,09,08,\
08,08,08,08,08,08,08,12,\
08,08,08,09,00,0A,08,0A,\
87,83,83,05,85,80,80,80,\
80,05,85,83,00,00,08,08,\
08,08,08,08,08,08,08,08,\
12,08,08,08,09,00,00,00,\
81,80,80,80,05,85,80,80,\
80,80,05,85,80,80,82,0A,\
08,08,08,08,08,08,08,08,\
08,12,08,08,08,08,0A,00,\
88,80,80,80,80,83,83,80,\
80,80,80,83,83,80,80,80,\
88,00,0A,08,08,08,08,08,\
08,8A,12,80,8A,08,0A,00,\
88,82,81,81,03,84,07,84,\
07,84,07,84,07,84,07,84,\
82,82,88,00,08,08,08,08,\
8A,80,80,12,80,80,08,08,\
09,00,8A,88,89,89,84,07,\
84,03,07,84,07,84,07,89,\
89,8A,8A,88,00,08,8A,80,\
80,80,80,8A,12,8A,80,80,\
8A,8A,81,80,80,88,80,8A,\
8A,88,8A,88,8A,8A,88,8A,\
80,80,80,80,88,84,03,03,\
89,89,89,89,97,12,8E,9B,\
80,80,88,81,80,80,80,80,\
80,80,80,88,80,80,80,80,\
88,80,80,80,80,82,85,00,\
0E,0E,0E,88,97,8E,12,8E,\
8E,9B,80,80,8A,80,80,8A,\
80,80,80,80,88,80,80,80,\
80,89,80,80,80,80,86,01,\
0E,0E,0E,88,97,8E,8E,12,\
8E,8E,8E,9B,80,80,8A,02,\
89,03,80,80,80,80,80,80,\
80,80,80,80,03,03,83,01,\
0E,0E,0E,88,97,8E,8E,8E,\
12,8E,8E,8E,8E,8E,9B,80,\
03,03,8A,8A,8A,8A,83,83,\
83,83,83,83,83,03,03,83,\
88,88,88,88,98,8E,8E,8E,\
8E,12,8E,8E,8E,8E,8E,8E,\
8E,8E,8E,83,83,83,83,83,\
83,83,83,83,83,83,8E,8E,\
8E,8E,8E,8E,8E,8E,8E,8E,\
8E,8E,12,8E,8E,8E,8E,8E,\
8E,80,80,80,80,80,80,80,\
80,80,80,80,80,80,80,80,\
80,80,8E,8E,8E,8E,8E,8E,\
8E,8E,8E,12,8E,8E,8E,80,\
80,80,80,80,80,80,80,80,\
80,9D,A4,96,9C,A2,80,80,\
80,80,80,80,80,80,80,8E,\
8E,8E,8E,8E,12,80,80,80,\
80,80,80,80,9B,9B,9B,9B,\
9B,9B,9B,9B,9B,9B,9B,9B,\
9B,9B,9B,9B,9B,9B,80,80,\
80,80,80,80,80,12,80,80,\
80,9B,9B,9B,9B,89,89,89,\
89,89,89,89,89,89,89,89,\
89,89,89,89,89,89,89,9B,\
9B,9B,9B,80,80,80,12,89,\
89,89,88,88,88,88,88,88,\
88,88,88,88,88,88,88,88,\
88,88,88,88,88,88,88,88,\
88,88,88,88,89,89,89,\
12,80,80,80,80,80,80,\
80,80,80,83,83,83,83,83,\
83,83,83,83,83,83,80,80,\
80,80,80,80,80,80,80,80,\
80,80,12,80,87,06,07,00,\
84,87,06,82,84,07,81,80,\
87,06,80,85,87,06,82,04,\
83,85,05,05,06,07,04,82,\
84,07,81,12,80,87,81,05,\
03,85,87,81,80,04,87,07,\
84,87,06,80,85,87,06,80,\
05,80,87,04,05,05,05,04,\
80,04,87,80,12,80,85,80,\
05,80,85,85,80,80,80,85,\
80,80,85,05,80,85,85,05,\
80,85,80,85,05,05,05,05,\
05,80,80,85,80,12,80,81,\
80,82,80,81,81,80,80,82,\
80,80,80,83,81,80,81,81,\
82,80,81,80,81,82,82,81,\
82,82,80,82,80,80,12,80,\
80,80,84,84,84,84,84,84,\
84,84,80,80,A6,B3,A9,B7,\
AA,80,97,97,97,80,80,84,\
84,84,84,84,84,84,80,12,\
00,2E ]

 9003 RETURN 
Xavier ...on the Facebook groupe : "Zx81 France"(fr)
Paul Panks
Posts: 62
Joined: Sun May 25, 2008 7:23 pm

Re: VB81

Post by Paul Panks »

I can't seem to get VB81 to read tapes. It just selects a directory for tapes, but no way to autostart them.

Paul
User avatar
yerzmyey
Posts: 1240
Joined: Thu May 15, 2008 10:11 am
Location: Rubber Planet
Contact:

Re: VB81

Post by yerzmyey »

Yes, that's true.
In this emul it's enough to set a "tape folder".
Then You have to load prog via
LOAD "NAME"
and the emul will find it by itself.
IN NIHILUM REVERTERIS - a big text-adventure game for ZX81: http://tiny.pl/g2m6m
"MONOCHROME" issue 5 - (Spring 2014) free paper/PDF magazine about ZX81: http://tiny.pl/q2m44
ZX81 COMPETITIONS 2007/2009: http://zx81.republika.pl/
User avatar
yerzmyey
Posts: 1240
Joined: Thu May 15, 2008 10:11 am
Location: Rubber Planet
Contact:

Re: VB81

Post by yerzmyey »

...Xtender does the sam, btw.
It makes some troubles with filenames - they must be kinda 8-sings-long or something like that.
Hm, hm.
IN NIHILUM REVERTERIS - a big text-adventure game for ZX81: http://tiny.pl/g2m6m
"MONOCHROME" issue 5 - (Spring 2014) free paper/PDF magazine about ZX81: http://tiny.pl/q2m44
ZX81 COMPETITIONS 2007/2009: http://zx81.republika.pl/
User avatar
XavSnap
Posts: 1940
Joined: Sat May 10, 2008 4:23 pm
Location: 'Zx81 France' Fb group.

Re: VB81

Post by XavSnap »

:?:

It's the Chris Comley's old release.

You had to get the proper (later) released XuR + Date (file création):

http://zx81.vb81.free.fr/download/VB81_XuR_EXE.zip

and install DLLs ( VB5 fr) ...
http://fetrmartin.free.fr/Download/DskCenter_Dll.zip

Launch VB81.exe
select the popup "files" ... "select tape directory"
Is nothing appeare in the listview ... that's a bugg!

Help page:
http://zx81.vb81.free.fr/help.html
and have a lookto vb81_XuR_exe.zip inclued docs.

;)
Xavier ...on the Facebook groupe : "Zx81 France"(fr)
User avatar
XavSnap
Posts: 1940
Joined: Sat May 10, 2008 4:23 pm
Location: 'Zx81 France' Fb group.

Re: VB81

Post by XavSnap »

Sorry !

I Was out of subject...

You'r true un dont tell about this new functionality !

It's a *.txt ou *.Bas file.

Just creat a Text file in you favorite Not-Pad,
Cut and paste the text...
And save it using TXT ou BAS extension.

And open it usting the directory explorer !

To transform a P file in a TXT file you had to retrive ZxToken (Same DLLs) allready instaled

http://dskcenter.free.fr/zxtools.html (release 1.13)

download:
http://dskcenter.free.fr/Download/Zxtoken.zip

Have more Fun !
Xavier ...on the Facebook groupe : "Zx81 France"(fr)
Post Reply