home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V6 / usr / source / tmg / tmgb / putcal.s < prev    next >
Encoding:
Text File  |  1975-05-13  |  260 b   |  24 lines
  1. f = r5
  2. g = r4
  3. .globl k
  4. .globl errcom
  5. .globl ktab,ktat
  6. .globl putcall,kput
  7.  
  8. putcall:
  9.     jsr    pc,kput
  10.     mov k(f),(g)+
  11.     rts    pc
  12.  
  13. kput:
  14.     sub    $2,k(f)
  15.     mov    k(f),r1
  16.     neg    r1
  17.     mov    r0,ktab(r1)
  18.     cmp    r1,$ktat
  19.     bhis    1f
  20.     rts    pc
  21. 1:
  22.     jsr    r0,errcom
  23.         <translation overflow\0>;.even
  24.