UNIX 6th Ed. - /usr/source/mdec/mcopy.s

   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

Defined functions

Defined variables