github.com/aap.pdp6
1
0
Fork 0
mirror of https://github.com/aap/pdp6.git synced 2026-01-17 16:54:03 +00:00
Code Issues Releases Wiki Activity

implemented UUOs

Browse Source
This commit is contained in:
aap 2016-04-18 13:04:40 +02:00
parent e3aa5af7e8
commit 7b416e2f8a
4 changed files with 52 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
apr.c
View File

@ -1,6 +1,11 @@
#include "pdp6.h"
#include "inst.h"
#define DBG_AR print("AR: %012llo\n", apr->ar)
#define DBG_MB print("MB: %012llo\n", apr->mb)
#define DBG_MQ print("MQ: %012llo\n", apr->mq)
#define DBG_MA print("MA: %06o\n", apr->ma)
#define DBG_IR print("IR: %06o\n", apr->ir)
int dotrace = 1;
Apr apr;
@ -522,7 +527,11 @@ pulse(mr_clr){
apr->blt_f0a = 0; // 6-18
apr->blt_f3a = 0; // 6-18
apr->blt_f5a = 0; // 6-18
apr->uuo_f1 = 0; // 5-10
apr->sct2_ret = NULL;
// EX UUO SYNC
decodeir(apr);
}
pulse(ex_clr){
@ -531,8 +540,8 @@ pulse(ex_clr){
}
pulse(ex_set){
apr->pr = (iobus0 >> 28) & 0377; // 7-4
apr->rlr = (iobus0 >> 10) & 0377; // 7-5
apr->pr = iobus0>>28 & 0377; // 7-4
apr->rlr = iobus0>>10 & 0377; // 7-5
}
pulse(mr_start){
@ -726,6 +735,24 @@ pulse(iot_t0){
nextpulse(apr, mc_rd_wr_rs_pulse); // 7-8
}
/*
* UUO subroutine
*/
pulse(uuo_t2){
trace("UUO T2\n");
apr->if1a = 1; // 5-3
nextpulse(apr, mc_rd_rq_pulse); // 7-8
}
pulse(uuo_t1){
trace("UUO T1\n");
apr->uuo_f1 = 0; // 5-10
apr->ma = apr->ma+1 & RT; // 7-3
nextpulse(apr, mr_clr); // 5-2
nextpulse(apr, uuo_t2); // 5-10
}
/*
* BLT subroutine
*/
@ -1244,8 +1271,11 @@ pulse(et3){
trace("ET3\n");
if(apr->ex_ir_uuo){
apr->mb |= apr->ir & 0777740 << 18; // 6-3, 6-1
// MBLT <- IR(1) (UUO T0) on 6-3
apr->mb |= (apr->ir&0777740) << 18; // 6-1
apr->ma |= F30; // 7-3
apr->uuo_f1 = 1; // 5-10
nextpulse(apr, mc_wr_rq_pulse); // 7-8
}
if(apr->inst == POPJ || apr->inst == BLT)
@ -1354,7 +1384,7 @@ pulse(et0a){
if((apr->inst & 0700) != 0700)
print("%d %s\n", gen++, names[apr->inst]);
else
print("%d %s\n", gen++, ionames[(apr->io_inst>>5) & 7]);
print("%d %s\n", gen++, ionames[apr->io_inst>>5 & 7]);
if(PI_HOLD)
set_pih(apr, apr->pi_req); // 8-3, 8-4
@ -1550,6 +1580,8 @@ pulse(at2){
pulse(at1){
trace("AT1\n");
apr->ex_uuo_sync = 1; // 5-13
// decode here because of EX UUO SYNC
decodeir(apr);
nextpulse(apr, (apr->ir & 017) == 0 ? at4 : at2); // 5-3
}
@ -1558,7 +1590,6 @@ pulse(at0){
apr->ar &= ~RT; // 6-8
apr->ar |= apr->mb & RT; // 6-8
apr->ir |= apr->mb>>18 & 037; // 5-7
decodeir(apr);
apr->ma = 0; // 7-3
apr->af0 = 0; // 5-3
nextpulse(apr, pi_sync); // 8-4
@ -1649,6 +1680,7 @@ pulse(mc_rs_t1){
if(apr->blt_f0a) nextpulse(apr, blt_t0a); // 6-18
if(apr->blt_f3a) nextpulse(apr, blt_t3a); // 6-18
if(apr->blt_f5a) nextpulse(apr, blt_t5a); // 6-18
if(apr->uuo_f1) nextpulse(apr, uuo_t1); // 5-10
}
pulse(mc_rs_t0){

7
mem
View File

@ -1,6 +1,9 @@
1000: 256000001013
40: 777777777777
41: 254200000000
1000: 004140001036
1001: 254200000000
1002: 777773001003
1013: 201000004321
1034: 321321123123
1035: 1001014
1035: 000001001014
1036: 001234004321

3
pdp6.h
View File

@ -145,7 +145,7 @@ struct Apr {
/* ?? */
bool mq36;
bool a_long, uuo_f1;
bool a_long;
/* sbr flip-flops */
bool if1a;
@ -157,6 +157,7 @@ struct Apr {
bool shf1;
bool iot_f0a;
bool blt_f0a, blt_f3a, blt_f5a;
bool uuo_f1;
/* temporaries */
bool ex_inh_rel;

9
test.s
View File

@ -7,6 +7,10 @@ PI_CLR_PIO = 1000
PI_CLR_ACT = 400
PI_SET_ACT = 200
. = 40
777777777777
JRST 4,
. = 1000
# CONI PI,1
# CONO PI,PI_RESET
@ -19,7 +23,8 @@ PI_SET_ACT = 200
# JRST .-2
# MOVE 0,BLTTEST
# BLT 0,BLTSPC+17
XCT XCTTEST
# XCT XCTTEST
UUO04 3,BLAH
JRST 4,
TEST:
@ -33,3 +38,5 @@ APR_PR_RLR:
321321123123
BLTTEST:
1,,BLTSPC
BLAH:
1234,,4321