1:         .title  srch
   2:         .ident  /03apr4/
   3: 
   4:         .mcall  (at)always,scan,genedt
   5:         .mcall (at)sdebug,ndebug
   6:         always
   7: 
   8:         .globl  srchi
   9:         .globl  search, next,   scan,   scanc,  scanw
  10:         .globl  append, insert, zap
  11:         .globl  rolndx, rolupd, mactop , symbot
  12: 
  13:         .globl  symovf
  14: 
  15:         .globl  xmit0
  16:         .globl  symlp,  symhp,  dumrol
  17:         .globl  savreg, symbol
  18: 
  19:         .if df  rsx11d
  20:         .globl  ed.reg, edmask, symrol, regrol, cpopj
  21:         .endc
  22: 
  23:         xitsec                  ;start in default sector
  24: 
  25: srchi:                          ;search init
  26:         mov     #dumrol,r0      ;end of variable rolls
  27: 1$:     mov     symhp,<^pl rolbas>(r0)  ;point all to top
  28:         mov     symhp,<^pl roltop>(r0)
  29:         clrb    <^pl rolsiz>+1(r0)
  30:         sub     #2,r0           ;get next lower
  31:         bge     1$
  32:         mov     symlp,mactop    ;bottom is start of macros
  33:         add     #bpmb-1,mactop  ;must be even
  34:         bic     #bpmb-1,mactop
  35:         mov     symhp,symbot    ;for sake of 'uplift' <<< REEDS
  36:         mov     symhp,symlp     ;symlp should always == symbot [debug, REEDS]
  37:         return
  38:         .if ndf rsx11d
  39: 
  40: search:                         ;binary roll search
  41:         call    setrol          ;set roll registers
  42:         mov     r3,-(sp)
  43:         sub     r3,r1           ;point one slot low
  44:         mov     r2,r3
  45:         sub     r1,r3           ;compute size
  46:         clr     r0              ;get set to compute search offset
  47:         sec                     ;  (r0 doubles as t/f flag)
  48: 1$:     rol     r0              ;shift bit
  49:         bic     r0,r3           ;clear corresponding bit.  last one?
  50:         bne     1$              ;  no
  51: 2$:     add     r0,r1
  52: 3$:     asr     r0              ;end of iteration, halve offset
  53:         bic     #2,r0           ;end?
  54:         beq     7$              ;  yes
  55: 4$:     cmp     r2,r1           ;off in no-mans's land?
  56:         blos    6$              ;  yes
  57:         cmp     (r4),(r1)       ;no, first words match?
  58:         bne     5$              ;  no
  59:         cmp     2(r4),2(r1)     ;yes, how about second?
  60:         beq     8$              ;  yes, found
  61: 5$:     bhi     2$              ;no, branch if too high
  62: 6$:     sub     r0,r1           ;lower index
  63:         br      3$
  64: 
  65: 7$:     cmp     (r1)+,(r1)+     ;point to insertion slot
  66: 8$:     mov     (sp)+,r3
  67:         br      scanx           ;exit through scan
  68:         .iff
  69: 
  70: search:
  71:         call    setrol
  72:         bit     #ed.reg,edmask  ;register definition enabled?
  73:         bne     10$             ;if ne no
  74:         cmp     r5,#symrol      ;symbol roll?
  75:         bne     10$             ;if ne no
  76:         bit     #7,(r4)         ;make ruff ruff test bypass 90%
  77:         bne     10$             ;if ne don't check for register
  78:         scan    regrol          ;scan register roll
  79:         mov     r5,rolndx       ;restore roll index
  80:         tst     r0              ;find symbol?
  81:         beq     10$             ;if eq no find em
  82:         return                  ;
  83: 10$:    mov     r1,-(sp)        ;save roll base
  84:         cmp     r1,r2           ;any in roll?
  85:         beq     5$              ;if eq no
  86:         sub     r3,r2           ;calculate high and low bounds
  87:         mov     r1,r0           ;
  88:         bic     #177770,(sp)    ;
  89: 1$:     mov     r0,r1           ;calculate trial index
  90:         add     r2,r1           ;
  91:         ror     r1              ;halve result
  92:         bic     #7,r1           ;clear garbage bits
  93:         bis     (sp),r1         ;
  94:         cmp     (r1),(r4)       ;compare high parts
  95:         bhi     3$              ;if hi set new high limit
  96:         blo     2$              ;if lo set new low limit
  97:         cmp     2(r1),2(r4)     ;compare low parts
  98:         beq     6$              ;if eq hit
  99:         bhi     3$              ;if hi set new high limit
 100: 2$:     mov     r1,r0           ;set new low limit
 101:         add     r3,r0           ;reduce by one more
 102:         cmp     r0,r2           ;any more to search?
 103:         blos    1$              ;if los yes
 104:         add     r3,r1           ;point to proper entry
 105:         br      5$              ;exit
 106: 3$:     mov     r1,r2           ;se new high limit
 107:         sub     r3,r2           ;reduce by one more
 108:         cmp     r0,r2           ;any more to search?
 109:         blos    1$              ;if los yes
 110: 5$:     clr     r0              ;set false flag
 111: 6$:     tst     (sp)+           ;clean stack
 112:         br      scanx           ;vammoosa
 113: 
 114:         genedt  reg
 115: 
 116:         .endc
 117: next:                           ;get the next entry
 118:         call    setrol
 119:         mov     rolupd,r0
 120:         add     r0,r1
 121:         add     r3,r0
 122:         cmp     r1,r2
 123:         blo     scanx
 124:         br      scanxf
 125: 
 126: scanw:                          ;scan one word
 127:         call    setrol          ;set registers
 128:         clr     r0              ;assume false
 129: 1$:     inc     r0              ;tally entry count
 130:         cmp     (r4),(r1)       ;match?
 131:         beq     scany           ;  yes
 132:         add     r3,r1           ;no, increment pointer
 133:         cmp     r1,r2           ;finished?
 134:         blo     1$              ;  no
 135:         clr     r0
 136:         return                  ;yes, exit false
 137: 
 138: scanc:                          ;scan continuation
 139:         call    setrof          ;set regs
 140:         mov     rolpnt,r1       ;get current pointer
 141:         add     r3,r1           ;update
 142:         br      scanf           ;jump into middle
 143: 
 144: scan:                           ;linear roll scan
 145:         call    setrol          ;set roll registers
 146: scanf:  clr     r0              ;assume false
 147: 1$:     cmp     r1,r2           ;end?
 148:         bhis    scanxf          ;  yes, exit false
 149:         inc     r0
 150:         cmp     (r4),(r1)       ;no, match on first words?
 151:         bne     2$              ;  yes
 152:         cmp     2(r4),2(r1)     ;no, how about second?
 153:         beq     scanx           ;  yes
 154: 2$:     add     r3,r1           ;increment by size
 155:         br      1$
 156: 
 157:         .enabl  lsb
 158: scanxf: clr     r0              ;false exit
 159: scanx:  mov     r1,rolpnt       ;set entry pointer
 160:         mov     r0,rolupd       ;save flag
 161:         beq     1$              ;branch if not found
 162: scany:  mov     r4,r2           ;pointer to "symbol"
 163:         neg     r3              ;negate entry size
 164:         jmp     xmit0(r3)       ;found, xfer arguments
 165: 
 166: 1$:     cmp     (r4)+,(r4)+     ;bypass symbol itself
 167:         asr     r3              ;get word count
 168:         sub     #2,r3           ;compensate for above cmp
 169:         ble     3$              ;branch if end
 170: 2$:     clr     (r4)+           ;clear word
 171:         sob     r3,2$
 172: 3$:     return
 173:         .dsabl  lsb
 174: append:                         ;append to end of roll
 175:         call    setrol
 176:         mov     r2,rolpnt       ;set pointer
 177:         clr     rolupd
 178:         br      inserf
 179: 
 180: insert:                         ;insert in roll
 181:         call    setrof          ;set roll registers (but no arg)
 182: inserf: mov     rolpnt,r0       ;points to proper slot
 183:         tst     rolupd          ;was search true?
 184:         bne     5$              ;  yes
 185:         incb    <^pl rolsiz>+1(r5)      ;update entry count
 186:         add     r3,<^pl roltop>(r5)     ;update top pointer
 187:         cmp     r2,<^pl rolbas>+2(r5)   ;gap between rolls?
 188:         bne     5$              ;  yes, just stuff it
 189:         mov     <^pl rolbas>,r1 ;ditto for separate stack
 190:         mov     r1,r2
 191:         sub     r3,r2
 192:         mov     r2,symbot
 193:         ;cmp	r2,mactop	;room?
 194:         ;bhi	1$		;  yes
 195:         ;jmp	symovf		;no, error
 196:         mov     #symovf,upbomb  ; where to go on error
 197:         call    uplift
 198:         add     upgap,r0
 199:         add     upgap,r1
 200:         add     upgap,r2
 201: 
 202:         ; fall through...
 203: 1$:     sub     r1,r0           ;compute byte count
 204:         asr     r0              ;  now word count
 205:         beq     4$              ;branch if first time
 206: 
 207: 2$:     mov     (r1)+,(r2)+     ;move an entry down
 208:         sob     r0,2$
 209: 4$:     sub     r3,<^pl rolbas>(r5)     ;decrement pointers
 210:         sub     r3,<^pl roltop>(r5)
 211:         sub     #2,r5           ;more rolls?
 212:         bge     4$              ;  yes
 213:         mov     r2,r0           ;point to insertion slot
 214: 5$:     asr     r3              ;halve size count
 215: 6$:     mov     (r4)+,(r0)+     ;move an entry into place
 216:         sob     r3,6$           ;loop if not end
 217:         mov     <^pl rolbas>,symbot
 218:         mov     <^pl rolbas>,symlp
 219:         return
 220: 
 221: 
 222: .globl  $brkad, $brksy          ; defined in exec.m11
 223: 
 224: .globl  putn
 225: uplift::                        ;<<< REEDS. move all the rolls up in core
 226:                                 ; can be called from 'insert' above and also
 227:                                 ; from 'getblk' in mac.m11.  Thanks to Steve
 228:                                 ; Ragle for showing the need for a call from
 229:                                 ; otherwise growing macros can scribble.
 230:                                 ; And to Joel Rubin for debugging help.
 231:         .irpc   xx,<0123>
 232:         mov     r'xx,-(sp)
 233:         .endm
 234:         cmp     symbot,mactop
 235:         blos    10$
 236:         clr     upgap
 237:         jmp     99$
 238: 10$:                            ; go here if symbot <= mactop
 239: 
 240:         mov     symhp,upgap     ; stash old highest in-space address
 241:         add     #10102,symhp
 242:         bic     #77,symhp       ; click bic rounds to next highest mult of 64
 243: 
 244:         mov     symhp,$brkad
 245:         mov     $brkad,-(sp)
 246:         tst     -(sp)
 247:         $sbrk
 248:         bcs     98$
 249:         cmp     (sp)+,(sp)+
 250:         br      1$
 251: 98$:
 252:         cmp     (sp)+,(sp)+
 253:         jmp     @upbomb         ; error bail-out: symovf or macovf
 254: 1$:
 255:         sub     #2,symhp        ; new highest in-space address
 256:         mov     symhp,r0
 257:         mov     upgap,r1        ; recall old highest address
 258:         mov     r0,r3
 259:         sub     r1,r3           ; r3 has the distance syms were shifted
 260:         mov     symlp,r2        ; symlp is OLD bottom of symbols.
 261:         tst     -(r2)           ; r2 ==> word before old bottom
 262: 2$:
 263:         mov     (r1),(r0)
 264:         tst     -(r1)
 265:         tst     -(r0)
 266:         cmp     r1,r2
 267:         bne     2$
 268: 
 269: 9$:     mov     r3,upgap        ; how much the syms were lifted
 270:         mov     #dumrol,r0      ; swiped from srchi
 271: 3$:     add     r3,<^pl rolbas>(r0)
 272:         add     r3,<^pl roltop>(r0)
 273:         sub     #2,r0
 274:         bge     3$
 275: 
 276:         add     r3,rolpnt
 277:         add     r3,symlp
 278:         mov     symlp,symbot
 279:         tst     rolupd
 280:         beq     30$
 281:         add     r3,rolupd
 282: 30$:
 283: 99$:
 284:         .irpc   xx,<3210>
 285:         mov     (sp)+,r'xx
 286:         .endm
 287:         return
 288: 
 289:         entsect mixed
 290: upgap:          .blkw
 291: upbomb::        .blkw                   ; contains address of error handler
 292:         xitsec
 293: zap:                            ;empty a roll
 294:         call    setrol
 295:         mov     r1,<^pl roltop>(r5)     ;make top = bottom
 296:         clrb    <^pl rolsiz>+1(r5)      ;clear entry count
 297:         return
 298: 
 299: 
 300: setrol:                         ;set roll registers
 301:         mov     r0,rolndx       ;set argument
 302: setrof: mov     (sp)+,r0        ;save return address
 303:         call    savreg          ;save registers
 304:         mov     r5,-(sp)        ;  and current character
 305:         mov     rolndx,r5       ;set index
 306:         mov     <^pl rolbas>(r5),r1     ;current base
 307:         mov     <^pl roltop>(r5),r2     ;current top
 308:         movb    <^pl rolsiz>(r5),r3     ;entry size
 309:         mov     #symbol,r4      ;pointer to symbol
 310:         call    (r0)            ;call proper routine
 311:         mov     (sp)+,r5        ;restore current character
 312:         return                  ;  and rest of regs
 313: 
 314:         entsec  mixed
 315: rolndx: .blkw                   ;roll index
 316: rolpnt: .blkw                   ;roll pointer
 317: rolupd: .blkw                   ;roll update
 318: mactop: .blkw                   ;current top of macro storage
 319: symbot: .blkw                   ;current bottom of dynamic rolls.
 320:                                 ;	@mactop<=@symbot  or uplift will fix it
 321:         xitsec
 322: 
 323:         .end
Last modified: 1987-02-27
Generated: 2016-12-26
Generated by src2html V0.67
page hit count: 1833
Valid CSS Valid XHTML 1.0 Strict