home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V6 / usr / source / fort / fx / fxb.s < prev    next >
Encoding:
Text File  |  1975-07-17  |  316 b   |  33 lines
  1. /
  2. /
  3.  
  4. / fxb -- get integer constant or label
  5.  
  6. .globl    geticon
  7. .globl    getlab
  8.  
  9. .globl    getsym
  10. .globl    geti
  11. .globl    ptemp
  12.  
  13. geticon:
  14.     jsr    r5,getsym
  15.     cmp    r0,$2
  16.     bne    1f
  17.     cmp    r3,$intcon
  18.     bne    1f
  19.     jsr    r5,geti
  20.     tst    (r5)+
  21. 1:
  22.     rts    r5
  23.  
  24. getlab:
  25.     jsr    r5,geticon
  26.         br 1f
  27.     mov    r0,temp
  28.     jsr    r5,ptemp; 'r; temp; line
  29.     tst    (r5)+
  30. 1:
  31.     rts    r5
  32.  
  33.