home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / 2014.11.minnie.tuhs.org.tar / minnie.tuhs.org / UnixArchive / PDP-11 / Trees / V6 / usr / source / s1 / form3.s < prev    next >
Text File  |  1975-05-14  |  2KB  |  148 lines
  1. /    esub
  2. /    r1 = pointer to input string
  3. /
  4. esub:
  5.     mov    r1,-(sp)
  6.     tst    switch
  7.     beq    1f
  8.     mov    opointer,r1
  9.     jsr    pc,putword
  10. 1:
  11.     tst    iflag
  12.     beq    1f
  13.     mov    $2,tflag
  14.     jmp    interrupt
  15. 1:
  16.     inc    switch
  17.     mov    $10.,r0
  18.     jsr    pc,allocate
  19.     mov    r1,r0
  20.     mov    opointer,r1
  21.     jsr    pc,putword
  22.     mov    (sp)+,r1
  23.     jsr    pc,scan
  24.  
  25.     tst    iflag
  26.     beq    1f
  27.     mov    $3,tflag
  28.     jmp    interrupt
  29. 1:
  30.     mov    r2,-(sp)
  31.     mov    r1,r0
  32.     mov    ipointer,r1
  33.     jsr    pc,putword
  34.     mov    opointer,r1
  35.     jsr    pc,pop
  36.     bec    9f; 4; 9:
  37.     mov    r0,-(sp)    /last output
  38.     mov    asmem,r1
  39.     jsr    pc,getsp
  40.     bes    2f
  41. 5:
  42.     clr    curlyf
  43.     mov    (sp),r1
  44.     mov    r0,r2
  45.     jsr    pc,release
  46. 6:
  47.     mov    opointer,r1
  48.     jsr    pc,pop
  49.     bec    4f
  50.     clr    switch
  51. 4:    mov    r2,r1
  52.     jsr    pc,rewind
  53.     tst    (sp)+
  54.     mov    (sp)+,r2
  55.     rts    pc
  56.  
  57.  
  58. /    not in memory
  59. 2:
  60.     mov    curly,r1
  61.     jsr    pc,getsp
  62.     bes    2f
  63.     br    5b
  64. 2:
  65.     mov    (sp),r1
  66.     jsr    pc,rewind
  67.     mov    $'\[,r0
  68. 1:
  69.     jsr    r5,tfoput
  70.     jsr    pc,getchar
  71.     bec    1b
  72.     mov    $'\],r0
  73.     jsr    r5,tfoput
  74.     mov    $10.,r0
  75.     jsr    pc,allocate
  76.     mov    r1,r2
  77.     mov    (sp),r0
  78.     tst    curlyf
  79.     beq    1f
  80.     clr    curlyf
  81.     mov    curly,r1
  82.     jsr    pc,addentry
  83.     br    2f
  84. 1:
  85.     mov    asmem,r1
  86.     jsr    pc,whead
  87.     jsr    pc,addentry
  88. 2:
  89.     mov    r2,r1
  90.     jsr    pc,accept
  91.     br    6b
  92. /
  93. /
  94. /    earg
  95. /    r0 = number in ascii
  96. /
  97. earg:
  98.     tst    iflag
  99.     beq    1f
  100.     mov    $4,tflag
  101.     jmp    interrupt
  102. 1:
  103.     mov    r1,-(sp)
  104.     inc    argf
  105.     sub    $'0,r0
  106.     asl    r0
  107.     mov    arg(r0),r1
  108.     beq    5f
  109. 4:
  110.     mov    (sp),r0
  111.     mov    r1,(sp)
  112.     mov    ipointer,r1
  113.     jsr    pc,putword
  114.     mov    opointer,r1
  115.     jsr    pc,pop
  116.     bec    3f
  117.     clr    switch
  118. 3:
  119.     mov    (sp)+,r1
  120.     jsr    pc,rewind
  121.     jsr    pc,scan
  122.     mov    r0,-(sp)
  123.     mov    ipointer,r1
  124.     jsr    pc,pop
  125.     bec    9f; 4; 9:
  126.     mov    r0,r1
  127.     clr    argf
  128.     clr    curlyf
  129.     mov    (sp)+,r0
  130.     rts    pc
  131. 5:
  132.     mov    r0,-(sp)
  133.     mov    $'\[,r0
  134.     jsr    r5,tfoput
  135.     mov    (sp),r0
  136.     asr    r0
  137.     add    $'0,r0
  138.     jsr    r5,tfoput
  139.     mov    $'\],r0
  140.     jsr    r5,tfoput
  141.     mov    $10.,r0
  142.     jsr    pc,allocate
  143.     mov    (sp)+,r0
  144.     mov    r1,arg(r0)
  145.     jsr    pc,accept
  146.  
  147.     br    4b
  148.