mim/development/mim/20/m20dif.dif

   1
   2 ;COMPARISON OF SS:<MIM.20>MIMI20.MID.195 AND SS:<MIM.20>MIMI20.MID.202
   3 ;OPTIONS ARE    /3
   4
   5 **** FILE SS:<MIM.20>MIMI20.MID.195, 1-11 (217)
   6         XGVEC==JSYS 606
   7         XSVEC==JSYS 607
   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
  12         XGVEC==JSYS 606
  13         XSVEC==JSYS 607
  14
  15 ***************
  16
  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
  21 ***************
  22
  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
  28                   SKIPGE (O2)
  29                    SUBI O2,FR.OFF
  30                   JRST  MRET2 ]
  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
  35                  JRST   MRETFO]
  36         MOVE    C,FR.OFF+FR.PC(A)       ; Get return PC if not glued
  37 MRETFO: MOVE    M,FR.MSA+FR.OFF(A)      ; MSUBR
  38         MOVE    M,@1(M)
  39         MOVE    M,1(M)                  ; IMSUBR
  40         HLRZ    0,(M)
  41         MOVE    R,1(M)
  42         CAIE    0,$TPCODE               ; skip if fbin
  43          JRST   .+3
  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
  53 ***************
  54
  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
  58 ***************
  59
  60 **** FILE SS:<MIM.20>MIMI20.MID.195, 15-68 (56268)
  61         MOVE    A,$WFIX
  62 **** FILE SS:<MIM.20>MIMI20.MID.202, 15-69 (56908)
  63 ATICDN: MOVE    A,$WFIX
  64 ***************
  65
  66 **** FILE SS:<MIM.20>MIMI20.MID.195, 16-22 (63959)
  67         JSP     PC,FRAME
  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
  72 ***************
  73
  74 **** FILE SS:<MIM.20>MIMI20.MID.195, 23-101 (85920)
  75         CAIE    C,BIN
  76          ADDI   A,1             ; Only re-execute if BIN
  77 **** FILE SS:<MIM.20>MIMI20.MID.202, 23-101 (86630)
  78         ADDI    A,1
  79         CAIE    C,BIN
  80          JRST   CHNS51
  81         PUSH    P,A
  82         MOVEI   A,.FHSLF
  83         MOVEI   B,IOX4          ; Return with error code
  84         SETER
  85         POP     P,A
  86         MOVE    A,(A)           ; Get ERJMP instruction
  87         TLZ     A,777760
  88         TLO     A,400000
  89         XMOVEI  A,@A            ; Get address of error routine
  90 ***************
  91
  92 **** FILE SS:<MIM.20>MIMI20.MID.195, 23-187 (87782)
  93 INTLP:  MOVE    A,INTFLG
  94 **** FILE SS:<MIM.20>MIMI20.MID.202, 23-197 (88681)
  95 INTLP:  SETZM   CTLGS
  96         MOVE    A,INTFLG
  97 ***************
  98
  99 **** FILE SS:<MIM.20>MIMI20.MID.195, 25-305 (94348)
 100 UTON:   SETOM   TRACE
 101         JRST    UUORET
 102 UTOFF:  SETZM   TRACE
 103 **** FILE SS:<MIM.20>MIMI20.MID.202, 25-305 (95261)
 104 UTON:;  SETOM   TRACE
 105         JRST    UUORET
 106 UTOFF:; SETZM   TRACE
 107 ***************
 108