home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V6 / usr / source / tmg / tmgb / any.s next >
Encoding:
Text File  |  1975-05-13  |  178 b   |  18 lines
  1. i = r3
  2. f = r5
  3. .globl x,j
  4. .globl succ,fail
  5. .globl    ctest,iget
  6. .globl any
  7.  
  8. any:
  9.     mov    j(f),-(sp)
  10.     jsr    pc,iget
  11.     jsr    pc,ctest
  12.     bcs    1f
  13.     mov    (sp)+,j(f)
  14.     jmp    fail
  15. 1:
  16.     tst    (sp)+
  17.     jmp    succ
  18.