@=$100

        dc.b    'BATCH_INPUT___'

        move.w  #tr0+$5050-35,-(sp)
        move.w  (sp)+,r0
        sub.w   #$5050,r0
        move.w  r0,-(sp)
        move.w  (sp)+,r6

        move.w  (sp)+,r0
        move.w  r0,-(sp)
        move.w  r0,-(sp)
        move.w  r0,-(sp)
        
        and.b   r0,35.b(r6.w)
        dec.w   r0
        dec.w   r0
        eor.b   r0,tr1-tr0+35.b(r6.w)
        eor.b   r0,tr2-tr0+35.b(r6.w)
        eor.b   r0,tr3-tr0+35.b(r6.w)
        eor.b   r0,tr4-tr0+35.b(r6.w)
        bcc.b   next
        dc.b    10
file:   dc.b    'myinput.bat'
tr0:    dc.b    $20

next:   move.w  #file^$4040,-(sp)
        move.w  (sp)+,r0
        eor.w   #$4040,r0

        move.w  r0,-(sp)
        move.w  (sp)+,r1
        move.w  (sp)+,r2
        move.w  #$7840,-(sp)
        move.w  (sp)+,r0
        eor.w   #$4440,r0
tr1:    dc.b    $cd^$fe,$21        ; trap    #$21
        bcs.b   tr4
        move.w  r0,-(sp)
        move.w  (sp)+,r3

        move.w  r6,-(sp)
        move.w  (sp)+,r0
        sub.b   #tr0-buf1-$50,r0
        sub.b   #$50-35,r0

        move.w  r0,-(sp)
        move.w  (sp)+,r1
        move.w  #$0a0d,-(sp)
        move.w  (sp)+,r0
tr2:    dc.b    $cd^$fe,$21        ; trap    #$21

        move.w  (sp)+,r0
        eor.b   buf1+1-tr0+35.b(r6.w),r0
        move.w  r0,-(sp)
        sub.b   #$7b,r0
        sub.b   #$7b,r0
        move.w  r0,-(sp)
        move.w  (sp)+,r2
        move.w  (sp)+,r0
        eor.b   #'=',r0
        eor.b   r0,buf1+1-tr0+35.b(r6.w)
        
        move.w  r6,-(sp)
        move.w  (sp)+,r0
        sub.b   #tr0-buf0-$50,r0
        sub.b   #$50-35,r0

        move.w  r0,-(sp)
        move.w  (sp)+,r1

        move.w  #$4040,-(sp)
        move.w  (sp)+,r0
 
tr3:    dc.b    $cd^$fe,$21        ; trap    #$21
tr4:    dc.b    $c3^$fe            ; rts.w

buf0:   dc.b    'set inpu'
buf1:   dc.b    't'