home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V6 / usr / source / fort / f3 / f38.s < prev    next >
Encoding:
Text File  |  1975-07-17  |  1001 b   |  96 lines
  1. /
  2. /
  3.  
  4. / f38 -- wierdo statements
  5.  
  6. .globl    sstop
  7. .globl    scall
  8. .globl    spaus
  9. .globl    sretu
  10. .globl    scont
  11. .globl    iserror
  12.  
  13. .globl    ptemp
  14. .globl    code
  15. .globl    geti
  16. .globl    getsym
  17. .globl    error
  18. .globl    declimpl
  19. .globl    e11
  20. .globl    funcappl
  21.  
  22. sstop:
  23.     clr    r0
  24.     tstb    (r1)
  25.     beq    1f
  26.     jsr    r5,getsym
  27.     cmp    r0,$2.            / const
  28.     bne    7f
  29.     cmp    r3,$intcon
  30.     bne    7f
  31.     jsr    r5,geti
  32. 1:
  33.     jsr    r5,code
  34.         <    stop; %d\n\0>; .even
  35.         r0
  36.     br    8f
  37.  
  38. spaus:
  39.     jsr    r5,getsym
  40.     cmp    r0,$2
  41.     bne    7f
  42.     cmp    r3,$intcon
  43.     bne    7f
  44.     jsr    r5,geti
  45.     jsr    r5,code
  46.         <    paus; %d\n\0>; .even
  47.         r0
  48.     br    8f
  49.  
  50. sretu:
  51.     tst    progt
  52.     bne    1f
  53.     jsr    r5,error;  37.        / return in main
  54.     br    sstop
  55. 1:
  56.     jsr    r5,code
  57.         <    retrn\n\0>; .even
  58. 8:
  59. scont:
  60.     tstb    (r1)
  61.     bne    7f
  62.     rts    r5
  63. 7:
  64.     jsr    r5,error; 38. 
  65.     rts    r5
  66.  
  67. iserror:
  68.     cmp    errp,$errb
  69.     bne    1f
  70.     tst    (r5)+
  71. 1:
  72.     rts    r5
  73.  
  74. scall:
  75.     jsr    r5,getsym
  76.     tst    r0
  77.     bne    7b
  78.     bit    $70,symtab(r3)
  79.     bne    1f
  80.     bis    $30,symtab(r3)
  81. 1:
  82.     jsr    r5,declimpl
  83.     jsr    r5,e11
  84.     cmp    r0,$40.
  85.     bne    7b
  86.     cmp    (r2),$34.
  87.     beq    1f
  88.     cmp    (r2),$42.
  89.     bne    7b
  90. 1:
  91.     jsr    r5,funcappl
  92.     jsr    r5,code
  93.         <0\n\0>; .even
  94.     br    8b
  95.  
  96.