home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V6 / usr / source / as / as12.s < prev    next >
Encoding:
Text File  |  1975-07-17  |  739 b   |  71 lines
  1. /
  2. /
  3.  
  4. / a2 -- pdp-11 assembler pass 1
  5.  
  6. error:
  7.     incb    errflg
  8.     mov    r0,-(sp)
  9.     mov    r1,-(sp)
  10.     mov    (r5)+,r0
  11.     tst    *curarg
  12.     beq    1f
  13.     mov    r0,-(sp)
  14.     mov    *curarg,r0
  15.     clr    *curarg
  16.     jsr    r5,filerr; '\n
  17.     mov    (sp)+,r0
  18. 1:
  19.     mov    r2,-(sp)
  20.     mov    r3,-(sp)
  21.     mov    line,r3
  22.     movb    r0,1f
  23.     mov    $1f+6,r0
  24.     mov    $4,r1
  25. 2:
  26.     clr    r2
  27.     dvd    $10.,r2
  28.     add    $'0,r3
  29.     movb    r3,-(r0)
  30.     mov    r2,r3
  31.     sob    r1,2b
  32.     mov    $1,r0
  33.     sys    write; 1f; 7
  34.     mov    (sp)+,r3
  35.     mov    (sp)+,r2
  36.     mov    (sp)+,r1
  37.     mov    (sp)+,r0
  38.     rts    r5
  39.  
  40.     .data
  41. 1:    <f xxxx\n>
  42.     .even
  43.     .text
  44.  
  45. betwen:
  46.     cmp    r0,(r5)+
  47.     blt    1f
  48.     cmp    (r5)+,r0
  49.     blt    2f
  50. 1:
  51.     tst    (r5)+
  52. 2:
  53.     rts    r5
  54.  
  55. putw:
  56.     tst    ifflg
  57.     beq    1f
  58.     cmp    r4,$'\n
  59.     bne    2f
  60. 1:
  61.     mov    r4,*obufp
  62.     add    $2,obufp
  63.     cmp    obufp,$outbuf+512.
  64.     blo    2f
  65.     mov    $outbuf,obufp
  66.     movb    pof,r0
  67.     sys    write; outbuf; 512.
  68. 2:
  69.     rts    pc
  70.  
  71.