folkert/simh-testsetgenerator
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

AltairZ80: VDM1 correct boot code, IO addressing
Some checks failed
Build / cmake-builds (push) Has been cancelled
Details
Build / makefile (macos-latest, besm6 imlac tt2500 microvax3900 microvax1 rtvax1000 vaxstation3100m76 vaxstation4000m60) (push) Has been cancelled
Details
Build / makefile (macos-latest, id16 id32 sds lgp h316 cdc1700 swtp6800mp-a swtp6800mp-a2 tx-0 ssem b5500 sage pdq3 alpha) (push) Has been cancelled
Details
Build / makefile (macos-latest, microvax2 vax730 vax750 vax780 vax8200 vax8600 microvax2000 infoserver100 infoserver150vxt microvax3100 microvax3100e vaxstation3100m30 vaxstation3100m38) (push) Has been cancelled
Details
Build / makefile (macos-latest, microvax3100m80 vaxstation4000vlc infoserver1000 nova eclipse hp2100 hp3000 i1401 i1620 s3 altair altairz80 gri i7094) (push) Has been cancelled
Details
Build / makefile (macos-latest, pdp1 pdp4 pdp6 pdp7 pdp8 pdp9 pdp10 pdp10-ka pdp10-ki pdp10-kl pdp10-ks pdp11 pdp15 vax) (push) Has been cancelled
Details
Build / makefile (macos-latest, scelbi 3b2 i701 i704 i7010 i7070 i7080 i7090 sigma uc15 i650 sel32 intel-mds ibm1130) (push) Has been cancelled
Details
Build / makefile (ubuntu-latest, besm6 imlac tt2500 microvax3900 microvax1 rtvax1000 vaxstation3100m76 vaxstation4000m60) (push) Has been cancelled
Details
Build / makefile (ubuntu-latest, id16 id32 sds lgp h316 cdc1700 swtp6800mp-a swtp6800mp-a2 tx-0 ssem b5500 sage pdq3 alpha) (push) Has been cancelled
Details
Build / makefile (ubuntu-latest, microvax2 vax730 vax750 vax780 vax8200 vax8600 microvax2000 infoserver100 infoserver150vxt microvax3100 microvax3100e vaxstation3100m30 vaxstation3100m38) (push) Has been cancelled
Details
Build / makefile (ubuntu-latest, microvax3100m80 vaxstation4000vlc infoserver1000 nova eclipse hp2100 hp3000 i1401 i1620 s3 altair altairz80 gri i7094) (push) Has been cancelled
Details
Build / makefile (ubuntu-latest, pdp1 pdp4 pdp6 pdp7 pdp8 pdp9 pdp10 pdp10-ka pdp10-ki pdp10-kl pdp10-ks pdp11 pdp15 vax) (push) Has been cancelled
Details
Build / makefile (ubuntu-latest, scelbi 3b2 i701 i704 i7010 i7070 i7080 i7090 sigma uc15 i650 sel32 intel-mds ibm1130) (push) Has been cancelled
Details

Browse source
This commit is contained in:
Patrick Linstruth 2025-02-12 18:50:51 -05:00 • committed by Paul Koning
parent feb155fbc4
commit b036821a68
1 changed files with 2 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
AltairZ80/s100_vdm1.c
View file

@ -48,7 +48,6 @@
/* /*
** PORT ASSIGNMENTS ** PORT ASSIGNMENTS
*/ */
#define VDM1_DSTAT 0xfe /* VDM DISPLAY PARAMETER PORT */
#define VDM1_DSTAT_RMSK 0xf0 /* START ROW MASK */ #define VDM1_DSTAT_RMSK 0xf0 /* START ROW MASK */
#define VDM1_DSTAT_CMSK 0x0f /* START COL MASK */ #define VDM1_DSTAT_CMSK 0x0f /* START COL MASK */
@ -391,7 +390,7 @@ static t_stat vdm1_boot(int32 unitno, DEVICE *dptr)
exdep_cmd(EX_D, "-m 14 DCX H"); exdep_cmd(EX_D, "-m 14 DCX H");
exdep_cmd(EX_D, "-m 15 MOV A,H"); exdep_cmd(EX_D, "-m 15 MOV A,H");
exdep_cmd(EX_D, "-m 16 ORA A"); exdep_cmd(EX_D, "-m 16 ORA A");
exdep_cmd(EX_D, "-m 17 JNZ 0012H"); exdep_cmd(EX_D, "-m 17 JNZ 0014H");
exdep_cmd(EX_D, "-m 1A INR C"); exdep_cmd(EX_D, "-m 1A INR C");
exdep_cmd(EX_D, "-m 1B MOV B,C"); exdep_cmd(EX_D, "-m 1B MOV B,C");
exdep_cmd(EX_D, "-m 1C JMP 0008H"); exdep_cmd(EX_D, "-m 1C JMP 0008H");
@ -402,7 +401,7 @@ static t_stat vdm1_boot(int32 unitno, DEVICE *dptr)
} }
static int32 vdm1_io(const int32 port, const int32 io, const int32 data) { static int32 vdm1_io(const int32 port, const int32 io, const int32 data) {
if ((io == 1) && (port == VDM1_DSTAT)) { if (io == 1) {
vdm1_dstat = data & 0xff; vdm1_dstat = data & 0xff;
} }
return 0xff; return 0xff;