mirror of
https://github.com/livingcomputermuseum/cpus-pdp8.git
synced 2026-04-29 13:23:29 +00:00
Initial fixes for TC08 code -- hardcoded addresses in dectape code cause RK05 swap
code to be overwritten. These have been corrected but something is still touching address 7754 in field 0 when it should not.
This commit is contained in:
@@ -6550,8 +6550,8 @@
|
||||
5977 >
|
||||
5978 37763 5151 SLEEPA, SLEEP
|
||||
5979 37764 0000 DSERRI, 0
|
||||
5980 37765 0000 0 /FOR DECTAPE SERVICE
|
||||
5981 37766 0000 0 /FOR DECTAPE SERVICE
|
||||
5980 37765 0000 DTWCPA, 0 /FOR DECTAPE SERVICE
|
||||
5981 37766 0000 DTCAPA, 0 /FOR DECTAPE SERVICE
|
||||
37775 2622
|
||||
37776 2612
|
||||
37777 2400
|
||||
@@ -6624,7 +6624,7 @@
|
||||
6033 40031 1206 DTGOA, DTGO
|
||||
6034 40032 1021 DTERRA, DTERR
|
||||
6035 40033 0377 DTBUFA, ENDBUF-1
|
||||
6036 40034 7755 DTCAP, 7755
|
||||
6036 40034 7766 DTCAP, DTCAPA
|
||||
6037 40035 5076 M2702, -2702
|
||||
6038 40036 7577 M201, -201
|
||||
6039 40037 0214 K0214, 214
|
||||
@@ -7251,7 +7251,7 @@
|
||||
|
||||
|
||||
6382
|
||||
6383 40740 7754 DTWCP, 7754
|
||||
6383 40740 7765 DTWCP, DTWCPA
|
||||
6384 40741 7701 K7701, 7701
|
||||
6385 40742 0014 K0014, 14
|
||||
6386
|
||||
|
||||
@@ -5460,8 +5460,8 @@ DSMA, DSMA /(SINCE THE 4K TRANSFER OVERWRITES THE DATA BREAK LOCATIONS)
|
||||
>
|
||||
SLEEPA, SLEEP
|
||||
DSERRI, 0
|
||||
0 /FOR DECTAPE SERVICE
|
||||
0 /FOR DECTAPE SERVICE
|
||||
DTWCPA, 0 /FOR DECTAPE SERVICE
|
||||
DTCAPA, 0 /FOR DECTAPE SERVICE
|
||||
FIELD 4 /FORCE TS8II INTO TRACK 4 AT BUILD TIME
|
||||
|
||||
/TS8II VERSION 8.24 (01-JANUARY-75)
|
||||
@@ -5516,7 +5516,7 @@ DTREMB, 0
|
||||
DTGOA, DTGO
|
||||
DTERRA, DTERR
|
||||
DTBUFA, ENDBUF-1
|
||||
DTCAP, 7755
|
||||
DTCAP, DTCAPA
|
||||
M2702, -2702
|
||||
M201, -201
|
||||
K0214, 214
|
||||
@@ -5863,7 +5863,7 @@ DTSTOP, ISZ DTBUF /ASSIGN THE BUFFER - IF HE DOESN'T ALREADY HAVE IT
|
||||
AND K0204 /CLEAR GO & INTERRUPT ENABLE
|
||||
JMP DTSRCH /TO STOP THE TAPE
|
||||
|
||||
DTWCP, 7754
|
||||
DTWCP, DTWCPA
|
||||
K7701, 7701
|
||||
K0014, 14
|
||||
|
||||
|
||||
Reference in New Issue
Block a user