Hi All;
T25 failing at 3304..
611 ;TEST THAT JSR INST OPERATES PROPERLY WITH REG SET BIT SET
612
613 003232 012706 000500 T25: MOV #KPTR,KSP
614 003236 012700 000001 MOV #BIT0,R0
615 003242 012737 004000 177776 MOV #BIT11,PSW
616 003250 012700 000400 MOV #BIT8,R10
617 003254 004037 003262 JSR R10,T25B
618 003260 000000 T25A: HLT
619 003262 022706 000476 T25B: CMP #KPTR-2,KSP
620 003266 001401 BEQ .+4
621 003270 000000 HLT
622 003272 022737 000400 000502 CMP #BIT8,KPTR+2
623 003300 001401 BEQ .+4
624 003302 000000 HLT
625 003304 022700 003260 CMP #T25A,R10 ; Is Return Address in R10
626 003310 001401 BEQ .+4
627 003312 000000 HLT ;Error !! Return Address Not saved in R10
628 003314 005037 177776 CLR PSW
629 003320 022700 000001 CMP #BIT0,R0
630 003324 001401 BEQ .+4
631 003326 000000 HLT
632 003330 010701 SCOPE
633
634
Here are the comments..
T25: MOV #KPTR,KSP ;Initialize Stack Pointer
MOV #BIT0,R0 ;Pre Set R0
MOV #BIT11,PSW ;Set Register Set Bit
MOV #BIT8,R10 ;Preset R10
JSR R10,T25B ;Go to T25B and Save R10 on Stack
T25A: HLT ;JSR did not go
T25B: CMP #KPTR-2,KSP ;Stack Pointer did Not Decrement
BEQ .+4
HLT
CMP #BIT8,KPTR+2 ;Was old Contents of R10 Saved ??
BEQ .+4
HLT ;Error !! R10 Not saved
CMP #T25A,R10 ;Is Return Address in R10
BEQ .+4
HLT ;Error !! Return Address Not saved in R10
CLR PSW
CMP #BIT0,R0 :R0 left Unchanged
BEQ .+4
HLT ;R0 got changed
SCOPE
Here is the Link to the Page with the original program listing --
http://bitsavers.trailing-edge.com/pdf/dec/pdp11/xxdp/diag_listings/1140_45/
And here is the name of the PDF --
006_DCKBH-A_1145_REGS.pdf
THANK YOU Marty