github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-01-13 15:27:28 +00:00
Code Issues Releases Wiki Activity

Fix Lisp display slave when using PDP-10.

Browse Source
This commit is contained in:
Lars Brinkhoff 2018-12-28 11:59:58 +01:00
parent a63f11a7b9
commit 188b894795
1 changed files with 16 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
src/l/slave.8 → src/l/slave.9
View File

@ -213,18 +213,8 @@ OPNSIX: SKIPE SIXOPD
1000,,0 ;MY UNAME
400000,,[SIXBIT \PDP6\]] ;JNAME=PDP6
JRST OP10
OP6D2: SKIPN SIXPG
JRST OP6D2Q
MOVEI TT,1
PUSHJ P,GETCOR
SKIPN TT
LERR [SIXBIT \NO CORE FOR MAPPING DISPLAY SLAVE!\]
MOVE D,[-LFOOTBL,,FOOTBL]
ADDM TT,(D)
AOBJN D,.-1
LSH TT,-12
MOVEM TT,SIXPG
OP6D2Q: .CALL SIXMAP
OP6D2: PUSHJ P,SIXCOR
.CALL SIXMAP
.VALUE
OPD62A: MOVEM R,SIXOPD ;IF OPENING 6, THEN R=-1 WILL ALLOW SECOND TRY
OP6A: MOVEI TT,DCLEAR ;R = 0 SAYS TRY 10SLAVE IF NO RESPONSE
@ -258,6 +248,19 @@ OP6C1: LERR DERR1
MOVEM TT,41(T)
AOJA R,OP6A
SIXCOR: SKIPE SIXPG
POPJ P,
MOVEI TT,1
PUSHJ P,GETCOR
SKIPN TT
LERR [SIXBIT \NO CORE FOR MAPPING DISPLAY SLAVE!\]
MOVE D,[-LFOOTBL,,FOOTBL]
ADDM TT,(D)
AOBJN D,.-1
LSH TT,-12
MOVEM TT,SIXPG
POPJ P,
SIXMAP: SETZ
SIXBIT \CORBLK\ ;HACK CORE PAGE
1000,,300000 ;READ/WRITE ACCESS
@ -287,6 +290,7 @@ OPNTEN: .CALL [ SETZ
.CALL LSIXC
.VALUE
.CLOSE TMPC,
PUSHJ P,SIXCOR
.CALL SIXMAP
.VALUE
MOVEM F,XARG ;0 => 340 SLAVE, "TNM" => GT40 SLAVE