Sinclair ZX80 / ZX81 Forums

[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.

[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 !

[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.
Anyway the VB81 has simple possibility of saving and not every emul has it (suprisingly).
Byez.

[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

[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


[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

[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.

[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.

[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.

[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 !