home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V6 / usr / source / tmg / tmgb / reln.s < prev    next >
Encoding:
Text File  |  1975-05-13  |  431 b   |  46 lines
  1. .globl .p,sprv
  2. .globl .eq,.ne,.lt,.le,.gt,.ge
  3.  
  4. .eq:
  5.     jsr    pc,sprv
  6.     cmp    4(sp),(sp)
  7.     beq    true
  8.     br    false
  9.  
  10. .ne:
  11.     jsr    pc,sprv
  12.     cmp    4(sp),(sp)
  13.     bne    true
  14.     br    false
  15. .lt:
  16.     jsr    pc,sprv
  17.     cmp    4(sp),(sp)
  18.     blt    true
  19.     br    false
  20.  
  21. .le:
  22.     jsr    pc,sprv
  23.     cmp    4(sp),(sp)
  24.     ble    true
  25.     br    false
  26.  
  27. .gt:
  28.     jsr    pc,sprv
  29.     cmp    4(sp),(sp)
  30.     bgt    true
  31.     br    false
  32.  
  33. .ge:
  34.     jsr    pc,sprv
  35.     cmp    4(sp),(sp)
  36.     bge    true
  37.     br    false
  38.  
  39. true:
  40.     mov    $1,4(sp)
  41.     jmp    .p
  42.  
  43. false:
  44.     clr    4(sp)
  45.     jmp    .p
  46.