home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V6 / usr / source / mdec / mcopy.s < prev    next >
Encoding:
Text File  |  1975-06-26  |  634 b   |  60 lines
  1. / copy mag tape to disk
  2. / load with proper tape and disk drivers
  3.  
  4.     jsr    pc,rew
  5. 2:
  6.     jsr    pc,4(r5)
  7.         <disk offset\n\0>
  8.         .even
  9.     jsr    pc,numb
  10.     mov    r0,dska
  11.     jsr    pc,4(r5)
  12.         <tape offset\n\0>
  13.         .even
  14.     jsr    pc,numb
  15.     mov    r0,tapa
  16.     jsr    pc,4(r5)
  17.         <count\n\0>
  18.         .even
  19.     jsr    pc,numb
  20.     mov    r0,r2
  21. 1:
  22.     jsr    pc,tread
  23.     jsr    pc,wblk
  24.     inc    tapa
  25.     inc    dska
  26.     dec    r2
  27.     bne    1b
  28.     jsr    pc,rew
  29.     rts    pc
  30.  
  31. numb:
  32.     clr    r1
  33. 1:
  34.     jsr    pc,2(r5)
  35.     cmp    r0,$'\n
  36.     beq    1f
  37.     sub    $'0,r0
  38.     cmp    r0,$9
  39.     bhi    2f
  40.     mul    $10.,r1
  41.     add    r0,r1
  42.     br    1b
  43. 1:
  44.     mov    r1,r0
  45.     rts    pc
  46. 2:
  47.     jsr    pc,4(r5)
  48.         <illegal digit\n\0>
  49.         .even
  50.     tst    (sp)+
  51.     rts    pc
  52.  
  53. ba:    buf
  54. wc:    -256.
  55. .bss
  56. buf:    .=.+512.
  57. dska:    .=.+2
  58. tapa:    .=.+2
  59. .text
  60.