home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V6 / usr / source / tmg / tmgb / px.s < prev    next >
Encoding:
Text File  |  1975-05-13  |  393 b   |  39 lines
  1. f = r5
  2. i = r3
  3. .globl j,n
  4. .globl iget,jget
  5. .globl succ,fail
  6. .globl .px,.pxs
  7.  
  8. .pxs:
  9.     mov    i,r0
  10.     tst    (i)+
  11.     br    1f
  12. .px:
  13.     jsr    pc,iget
  14. 1:
  15.     inc    litc
  16.     mov    n(f),-(sp)
  17.     mov    j(f),-(sp)
  18.     mov    r0,-(sp)
  19. 2:
  20.     tstb    *(sp)
  21.     beq    2f
  22.     jsr    pc,jget
  23.     cmpb    r0,*(sp)
  24.     beq    1f
  25.     tst    (sp)+
  26.     mov    (sp)+,j(f)
  27.     mov    (sp)+,n(f)
  28.     jmp    fail
  29. 1:
  30.     clr    n(f)
  31.     inc    (sp)
  32.     inc    j(f)
  33.     br     2b
  34. 2:
  35.     cmp    (sp)+,(sp)+
  36.     mov    (sp)+,n(f)
  37.     jmp    succ
  38. litc:    0
  39.