2 ;COMPARISON OF SS:<MIM.20>MIMI20.MID.195 AND SS:<MIM.20>MIMI20.MID.202
5 **** FILE SS:<MIM.20>MIMI20.MID.195, 1-11 (217)
8 **** FILE SS:<MIM.20>MIMI20.MID.202, 1-11 (217)
9 IFNDEF SWTRP%,SWTRP%==JSYS 573
10 IFNDEF XSIR%,XSIR%==JSYS 602
11 IFNDEF SMAP%,SMAP%==JSYS 767
17 **** FILE SS:<MIM.20>MIMI20.MID.195, 1-17 (309)
18 SBRFY==0 ; ENABLE "SUBRIFY" STUFF
19 **** FILE SS:<MIM.20>MIMI20.MID.202, 1-21 (404)
20 SBRFY==1 ; ENABLE "SUBRIFY" STUFF
23 **** FILE SS:<MIM.20>MIMI20.MID.195, 8-543 (30665)
24 MOVE B,@FR.PC+FR.OFF(O2) ; THIS KLUDGE SEES IF WE CAN STEP TO
25 ; NEXT FRAME FOR THIS MRETURN
26 CAMN B,[JRST @<RETOFF+ENTVEC>] ; IS IT A RETURN
27 JRST [ MOVE O2,FR.OFF-2(O2) ; YES, MRETURN FROM IT
31 **** FILE SS:<MIM.20>MIMI20.MID.202, 8-543 (30760)
32 MOVE A,FR.FRA+FR.OFF(O2) ; Previous frame
33 SKIPGE C,FR.OFF(A) ; Glued?
34 JRST [HRR A,-1(A) ; Point to real frame
36 MOVE C,FR.OFF+FR.PC(A) ; Get return PC if not glued
37 MRETFO: MOVE M,FR.MSA+FR.OFF(A) ; MSUBR
42 CAIE 0,$TPCODE ; skip if fbin
44 SKIPN R,PV%OFF(R) ; skip if already mapped in
45 PUSHJ P,@[MIMSEC,,DMAPI1] ; Map the guy in
46 MOVE B,@C ; THIS KLUDGE SEES IF WE CAN STEP TO
47 ; NEXT FRAME FOR THIS MRETURN
48 CAMN B,[JRST @<RETOFF+ENTVEC>] ; IS IT A RETURN
49 JRST [ MOVE O2,FR.OFF+FR.FRA(O2) ; YES, MRETURN FROM IT
50 SKIPGE (O2) ; skip if not glued frame
51 SUBI O2,FR.OFF ; fix up pointer
52 JRST MRET2 ] ; try this all again
55 **** FILE SS:<MIM.20>MIMI20.MID.195, 15-61 (56143)
56 **** FILE SS:<MIM.20>MIMI20.MID.202, 15-61 (56734)
57 JUMPL O1,ATICDN ; If not a char, don't do ATI
60 **** FILE SS:<MIM.20>MIMI20.MID.195, 15-68 (56268)
62 **** FILE SS:<MIM.20>MIMI20.MID.202, 15-69 (56908)
66 **** FILE SS:<MIM.20>MIMI20.MID.195, 16-22 (63959)
68 PUSH TP,[$TLVAL,,$LATOM]
69 **** FILE SS:<MIM.20>MIMI20.MID.202, 16-22 (64606)
70 JSP PC,FRAME ; Have binding with no value
71 PUSH TP,[$TATOM,,$LATOM] ; So strictly error case of EICC
74 **** FILE SS:<MIM.20>MIMI20.MID.195, 23-101 (85920)
76 ADDI A,1 ; Only re-execute if BIN
77 **** FILE SS:<MIM.20>MIMI20.MID.202, 23-101 (86630)
83 MOVEI B,IOX4 ; Return with error code
86 MOVE A,(A) ; Get ERJMP instruction
89 XMOVEI A,@A ; Get address of error routine
92 **** FILE SS:<MIM.20>MIMI20.MID.195, 23-187 (87782)
94 **** FILE SS:<MIM.20>MIMI20.MID.202, 23-197 (88681)
99 **** FILE SS:<MIM.20>MIMI20.MID.195, 25-305 (94348)
103 **** FILE SS:<MIM.20>MIMI20.MID.202, 25-305 (95261)