home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V6 / usr / source / tmg / tmgb / ctest.s < prev    next >
Encoding:
Text File  |  1975-05-13  |  237 b   |  25 lines
  1. f = r5
  2. .globl j
  3. .globl classtab,jget
  4. .globl ctest
  5. .globl putcstr
  6. .globl succ
  7.  
  8. ctest:
  9.     inc    ctestc
  10.     mov    r0,-(sp)
  11.     jsr    pc,jget
  12.     asl    r0
  13.     bit    *(sp)+,classtab(r0)
  14.     clc
  15.     beq    1f
  16.     asr    r0
  17.     jsr    pc,putcstr
  18.     inc    j(f)
  19.     sec
  20. 1:
  21.     rts    pc
  22.  
  23. .data
  24. ctestc:    0
  25.