(ASSEMBLE.CLAUSE ( pathname 2 pathname ) 18
    (allocate)
    (get.Ai.variable.Yn 1 2)
    (get.Ai.variable.Yn 2 3)
    (put.Ai.variable.Yn 1 1)
    (call 6 os←type 1 si)
    (put.Ai.value.Yn 3 3)
    (put.Ai.value.Yn 2 2)
    (put.Ai.unsafe.Yn 1 1)
    (depart pathname 3 pathname)
)

(ASSEMBLE.CLAUSE ( pathname 3 pathname ) 22
    (allocate)
    (get.Ai.variable.Yn 1 2)
    (get.Ai.variable.Yn 2 3)
    (get.Ai.variable.Yn 3 1)
    (put.Ai.value.Yn 1 3)
    (is.a 1)
    (body.cut)
    (put.Ai.value.Yn 2 3)
    (put.Ai.structure 1 path←string 2)
    (unify.local.Yn 2)
    (unify.local.Yn 1)
    (call 3 phrase 2 si)
    (depart.cut)
)

(ASSEMBLE.CLAUSE ( pathname 3 pathname ) 34
    (allocate)
    (get.Ai.variable.Yn 1 2)
    (get.Ai.variable.Yn 2 3)
    (get.Ai.variable.Yn 3 1)
    (put.Ai.value.Yn 1 1)
    (is.a 1)
    (load.choice.point)
    (store.variable.Yn 4)
    (either 7 23)
    (put.Ai.value.Yn 1 3)
    (is.a 128)
    (load.value.Yn 4)
    (cut.to.choice.point)
    (fail)
;23
    (or.finally)
;24
    (body.cut)
    (put.Ai.value.Yn 2 3)
    (put.Ai.structure 1 path←record 2)
    (unify.local.Yn 2)
    (unify.local.Yn 1)
    (call 3 phrase 2 si)
    (depart.cut)
)

(ASSEMBLE.CLAUSE ( pathname 3 pathname ) 32
    (allocate)
    (get.Ai.variable.Yn 1 2)
    (get.Ai.variable.Yn 2 4)
    (get.Ai.variable.Yn 3 1)
    (put.Ai.value.Yn 1 1)
    (is.a 1)
    (put.Ai.value.Yn 1 4)
    (is.a 128)
    (body.cut)
    (put.Ai.variable.Yn 2 3)
    (put.Ai.value.Yn 1 4)
    (call 6 name 2 si)
    (put.Ai.unsafe.Yn 2 3)
    (put.Ai.structure 1 path←record 2)
    (unify.local.Yn 2)
    (unify.local.Yn 1)
    (call 3 phrase 2 si)
    (depart.cut)
)

(ASSEMBLE.CLAUSE ( lower←case 2 pathname ) 5
    (get.Ai.constant 1 NIL)
    (get.Ai.nil 2)
    (proceed)
)

(ASSEMBLE.CLAUSE ( lower←case 2 pathname ) 21
    (get.Ai.list 1)
    (unify.variable.Xn 4)
    (unify.variable.Xn 1)
    (get.Ai.list 2)
    (unify.variable.Xn 3)
    (unify.variable.Xn 2)
    (load.value.Xn 4)
    (load.pos.word 90)
    (not.greater.than)
    (load.value.Xn 4)
    (load.pos.word 65)
    (not.less.than)
    (head.cut)
    (load.value.Xn 4)
    (add.pos.word 32)
    (store.value.Xn 3)
    (execute lower←case 2 pathname)
)

(ASSEMBLE.CLAUSE ( lower←case 2 pathname ) 8
    (get.Ai.list 1)
    (unify.variable.Xn 3)
    (unify.variable.Xn 1)
    (get.Ai.list 2)
    (unify.value.Xn 3)
    (unify.variable.Xn 2)
    (execute lower←case 2 pathname)
)

(ASSEMBLE.CLAUSE ( any 3 pathname ) 6
    (get.Ai.constant 1 NIL)
    (get.Ai.value.Xn 3 2)
    (proceed)
)

(ASSEMBLE.CLAUSE ( any 3 pathname ) 23
    (get.Ai.list 1)
    (unify.variable.Xn 4)
    (allocate)
    (unify.variable.Yn 1)
    (put.Ai.value.Xn 1 2)
    (get.Ai.variable.Yn 3 3)
    (put.Ai.variable.Yn 3 2)
    (put.Ai.value.Xn 2 4)
    (call 6 C 3 si)
    (put.Ai.value.Yn 3 3)
    (put.Ai.unsafe.Yn 2 2)
    (put.Ai.value.Yn 1 1)
    (depart any 3 pathname)
)

(ASSEMBLE.CLAUSE ( fid 3 pathname ) 83
    (get.Ai.list 1)
    (allocate)
    (unify.variable.Yn 4)
    (unify.variable.Yn 1)
    (put.Ai.value.Xn 1 2)
    (get.Ai.variable.Yn 3 3)
    (put.Ai.variable.Yn 3 2)
    (put.Ai.value.Yn 2 4)
    (call 8 C 3 si)
    (load.value.Yn 4)
    (load.pos.word 97)
    (not.less.than.else 28)
    (load.value.Yn 4)
    (load.pos.word 122)
    (not.greater.than)
    (jump.to 76)
;28
    (load.choice.point)
    (store.variable.Yn 5)
    (either 8 42)
    (put.Ai.value.Yn 1 4)
    (get.Ai.constant 1 95)
    (load.value.Yn 5)
    (cut.to.choice.point)
    (jump.to 76)
;42
    (or 56)
    (load.value.Yn 4)
    (load.pos.word 65)
    (not.less.than)
    (load.value.Yn 5)
    (cut.to.choice.point)
    (load.value.Yn 4)
    (load.pos.word 90)
    (not.greater.than)
    (jump.to 76)
;56
    (or 70)
    (load.value.Yn 4)
    (load.pos.word 48)
    (not.less.than)
    (load.value.Yn 5)
    (cut.to.choice.point)
    (load.value.Yn 4)
    (load.pos.word 57)
    (not.greater.than)
    (jump.to 76)
;70
    (or.finally)
    (put.Ai.value.Yn 1 4)
    (get.Ai.constant 1 45)
;76
    (body.cut)
    (put.Ai.value.Yn 3 3)
    (put.Ai.unsafe.Yn 2 2)
    (put.Ai.value.Yn 1 1)
    (depart fid 3 pathname)
)

(ASSEMBLE.CLAUSE ( fid 3 pathname ) 6
    (get.Ai.constant 1 NIL)
    (get.Ai.value.Xn 3 2)
    (proceed)
)

(ASSEMBLE.CLAUSE ( path←record 4 pathname ) 314
    (get.Ai.constant 1 vms)
    (get.Ai.structure 2 pathname 7)
    (allocate)
    (unify.variable.Yn 27)
    (unify.variable.Yn 23)
    (unify.variable.Yn 16)
    (unify.variable.Yn 17)
    (unify.variable.Yn 11)
    (unify.variable.Yn 7)
    (unify.variable.Yn 3)
    (get.Ai.variable.Yn 3 26)
    (get.Ai.variable.Yn 4 2)
    (either 33 61)
    (put.Ai.variable.Yn 3 30)
    (put.Ai.value.Yn 2 26)
    (put.Ai.variable.Yn 1 28)
    (call 33 vms←alphameric 3 pathname)
    (put.Ai.variable.Yn 3 29)
    (put.Ai.constant 2 58)
    (put.Ai.unsafe.Yn 1 30)
    (call 32 C 3 si)
    (put.Ai.variable.Yn 3 22)
    (put.Ai.constant 2 58)
    (put.Ai.unsafe.Yn 1 29)
    (call 31 C 3 si)
    (put.Ai.unsafe.Yn 2 28)
    (put.Ai.value.Yn 1 27)
    (call 29 name 2 si)
    (jump.to 66)
;61
    (or.finally)
    (put.Ai.variable.Yn 1 22)
    (get.Ai.value.Yn 1 26)
;66
    (either 28 97)
    (put.Ai.variable.Yn 3 25)
    (put.Ai.value.Yn 2 22)
    (put.Ai.variable.Yn 1 24)
    (call 28 vms←alphameric 3 pathname)
    (put.Ai.variable.Yn 3 14)
    (put.Ai.constant 2 58)
    (put.Ai.unsafe.Yn 1 25)
    (call 27 C 3 si)
    (put.Ai.unsafe.Yn 2 24)
    (put.Ai.value.Yn 1 23)
    (call 25 name 2 si)
    (jump.to 102)
;97
    (or.finally)
    (put.Ai.variable.Yn 1 14)
    (get.Ai.value.Yn 1 22)
;102
    (load.choice.point)
    (store.variable.Yn 19)
    (either 24 142)
    (put.Ai.variable.Yn 3 21)
    (put.Ai.constant 2 91)
    (put.Ai.value.Yn 1 14)
    (call 24 C 3 si)
    (load.value.Yn 19)
    (cut.to.choice.point)
    (put.Ai.variable.Yn 4 20)
    (put.Ai.unsafe.Yn 3 21)
    (put.Ai.value.Yn 2 17)
    (put.Ai.value.Yn 1 16)
    (call 23 vms←dirs 4 pathname)
    (put.Ai.variable.Yn 3 13)
    (put.Ai.constant 2 93)
    (put.Ai.unsafe.Yn 1 20)
    (call 22 C 3 si)
    (jump.to 184)
;142
    (or 179)
    (put.Ai.variable.Yn 3 18)
    (put.Ai.constant 2 60)
    (put.Ai.value.Yn 1 14)
    (call 22 C 3 si)
    (load.value.Yn 19)
    (cut.to.choice.point)
    (put.Ai.variable.Yn 4 15)
    (put.Ai.unsafe.Yn 3 18)
    (put.Ai.value.Yn 2 17)
    (put.Ai.value.Yn 1 16)
    (call 18 vms←dirs 4 pathname)
    (put.Ai.variable.Yn 3 13)
    (put.Ai.constant 2 62)
    (put.Ai.unsafe.Yn 1 15)
    (call 17 C 3 si)
    (jump.to 184)
;179
    (or.finally)
    (put.Ai.variable.Yn 1 13)
    (get.Ai.value.Yn 1 14)
;184
    (put.Ai.variable.Yn 3 6)
    (put.Ai.unsafe.Yn 2 13)
    (put.Ai.variable.Yn 1 12)
    (call 15 vms←alphameric 3 pathname)
    (either 15 203)
    (put.Ai.value.Yn 1 12)
    (get.Ai.constant 1 NIL)
    (jump.to 211)
;203
    (or.finally)
    (put.Ai.unsafe.Yn 2 12)
    (put.Ai.value.Yn 1 11)
    (call 13 name 2 si)
;211
    (load.choice.point)
    (store.variable.Yn 9)
    (either 13 246)
    (put.Ai.variable.Yn 3 10)
    (put.Ai.constant 2 46)
    (put.Ai.value.Yn 1 6)
    (call 13 C 3 si)
    (put.Ai.variable.Yn 3 1)
    (put.Ai.unsafe.Yn 2 10)
    (put.Ai.variable.Yn 1 8)
    (call 12 vms←alphameric 3 pathname)
    (load.value.Yn 9)
    (cut.to.choice.point)
    (put.Ai.unsafe.Yn 2 8)
    (put.Ai.value.Yn 1 7)
    (call 9 name 2 si)
    (jump.to 251)
;246
    (or.finally)
    (put.Ai.variable.Yn 1 1)
    (get.Ai.value.Yn 1 6)
;251
    (either 8 270)
    (put.Ai.value.Yn 3 2)
    (put.Ai.constant 2 59)
    (put.Ai.value.Yn 1 1)
    (call 8 C 3 si)
    (put.Ai.value.Yn 1 3)
    (get.Ai.constant 1 newest)
    (progress)
;270
    (or 290)
    (put.Ai.variable.Yn 3 5)
    (put.Ai.constant 2 59)
    (put.Ai.value.Yn 1 1)
    (call 8 C 3 si)
    (put.Ai.value.Yn 3 2)
    (put.Ai.unsafe.Yn 2 5)
    (put.Ai.value.Yn 1 3)
    (depart digit←string 3 pathname)
;290
    (or 310)
    (put.Ai.variable.Yn 3 4)
    (put.Ai.constant 2 46)
    (put.Ai.value.Yn 1 1)
    (call 7 C 3 si)
    (put.Ai.value.Yn 3 2)
    (put.Ai.unsafe.Yn 2 4)
    (put.Ai.value.Yn 1 3)
    (depart digit←string 3 pathname)
;310
    (or.finally)
    (put.Ai.value.Yn 1 2)
    (get.Ai.value.Yn 1 1)
    (progress)
)

(ASSEMBLE.CLAUSE ( path←record 4 pathname ) 181
    (get.Ai.constant 1 unix)
    (get.Ai.structure 2 pathname 7)
    (unify.void 2)
    (allocate)
    (unify.variable.Yn 11)
    (unify.variable.Yn 12)
    (unify.variable.Yn 3)
    (unify.variable.Yn 1)
    (unify.void 1)
    (get.Ai.variable.Yn 3 14)
    (get.Ai.variable.Yn 4 9)
    (load.choice.point)
    (store.variable.Yn 15)
    (either 18 43)
    (put.Ai.variable.Yn 3 13)
    (put.Ai.constant 2 47)
    (put.Ai.value.Yn 1 14)
    (call 18 C 3 si)
    (load.value.Yn 15)
    (cut.to.choice.point)
    (put.Ai.value.Yn 1 11)
    (get.Ai.constant 1 absolute)
    (jump.to 48)
;43
    (or.finally)
    (put.Ai.variable.Yn 1 13)
    (get.Ai.value.Yn 1 14)
;48
    (put.Ai.variable.Yn 3 8)
    (put.Ai.unsafe.Yn 2 13)
    (put.Ai.variable.Yn 1 10)
    (call 15 unix←dirs 3 pathname)
    (put.Ai.value.Yn 3 12)
    (put.Ai.value.Yn 2 11)
    (put.Ai.unsafe.Yn 1 10)
    (call 12 process←unix←dirs 3 pathname)
    (put.Ai.value.Yn 5 9)
    (put.Ai.unsafe.Yn 4 8)
    (put.Ai.variable.Yn 3 7)
    (put.Ai.variable.Yn 2 2)
    (put.Ai.variable.Yn 1 4)
    (call 10 unix←two←parts 5 pathname)
    (load.choice.point)
    (store.variable.Yn 5)
    (either 10 131)
    (put.Ai.unsafe.Yn 1 7)
    (get.Ai.constant 1 false)
    (load.value.Yn 5)
    (cut.to.choice.point)
    (load.choice.point)
    (store.variable.Yn 6)
    (either 9 109)
    (put.Ai.value.Yn 1 4)
    (get.Ai.constant 1 NIL)
    (put.Ai.value.Yn 1 2)
    (get.Ai.constant 1 NIL)
    (load.value.Yn 6)
    (cut.to.choice.point)
    (progress)
;109
    (or 124)
    (put.Ai.value.Yn 1 4)
    (get.Ai.constant 1 NIL)
    (load.value.Yn 6)
    (cut.to.choice.point)
    (put.Ai.value.Yn 1 3)
    (get.Ai.constant 1 |.(MKATOM ""))
    (progress)
;124
    (or.finally)
    (put.Ai.value.Yn 2 4)
    (put.Ai.value.Yn 1 3)
    (depart name 2 si)
;131
    (or 151)
    (put.Ai.value.Yn 1 4)
    (get.Ai.constant 1 NIL)
    (put.Ai.value.Yn 1 2)
    (get.Ai.constant 1 NIL)
    (load.value.Yn 5)
    (cut.to.choice.point)
    (put.Ai.value.Yn 1 3)
    (get.Ai.constant 1 %.)
    (progress)
;151
    (or 169)
    (put.Ai.value.Yn 1 4)
    (get.Ai.constant 1 NIL)
    (load.value.Yn 5)
    (cut.to.choice.point)
    (put.Ai.list 2)
    (unify.constant 46)
    (unify.local.Yn 2)
    (put.Ai.value.Yn 1 3)
    (depart name 2 si)
;169
    (or.finally)
    (put.Ai.unsafe.Yn 2 4)
    (put.Ai.value.Yn 1 3)
    (call 5 name 2 si)
    (put.Ai.unsafe.Yn 2 2)
    (put.Ai.value.Yn 1 1)
    (depart name 2 si)
)

(ASSEMBLE.CLAUSE ( path←record 4 pathname ) 208
    (get.Ai.constant 1 tops20)
    (get.Ai.structure 2 pathname 7)
    (unify.void 1)
    (allocate)
    (unify.variable.Yn 22)
    (unify.variable.Yn 17)
    (unify.variable.Yn 18)
    (unify.variable.Yn 12)
    (unify.variable.Yn 8)
    (unify.variable.Yn 4)
    (get.Ai.variable.Yn 3 21)
    (get.Ai.variable.Yn 4 2)
    (load.choice.point)
    (store.variable.Yn 24)
    (either 28 55)
    (put.Ai.variable.Yn 3 25)
    (put.Ai.value.Yn 2 21)
    (put.Ai.variable.Yn 1 23)
    (call 28 fid 3 pathname)
    (put.Ai.variable.Yn 3 15)
    (put.Ai.constant 2 58)
    (put.Ai.unsafe.Yn 1 25)
    (call 27 C 3 si)
    (load.value.Yn 24)
    (cut.to.choice.point)
    (put.Ai.unsafe.Yn 2 23)
    (put.Ai.value.Yn 1 22)
    (call 24 name 2 si)
    (jump.to 60)
;55
    (or.finally)
    (put.Ai.variable.Yn 1 15)
    (get.Ai.value.Yn 1 21)
;60
    (load.choice.point)
    (store.variable.Yn 20)
    (either 23 100)
    (put.Ai.variable.Yn 3 19)
    (put.Ai.constant 2 60)
    (put.Ai.value.Yn 1 15)
    (call 23 C 3 si)
    (load.value.Yn 20)
    (cut.to.choice.point)
    (put.Ai.variable.Yn 4 16)
    (put.Ai.unsafe.Yn 3 19)
    (put.Ai.value.Yn 2 18)
    (put.Ai.value.Yn 1 17)
    (call 19 vms←dirs 4 pathname)
    (put.Ai.variable.Yn 3 14)
    (put.Ai.constant 2 62)
    (put.Ai.unsafe.Yn 1 16)
    (call 18 C 3 si)
    (jump.to 105)
;100
    (or.finally)
    (put.Ai.variable.Yn 1 14)
    (get.Ai.value.Yn 1 15)
;105
    (put.Ai.variable.Yn 3 7)
    (put.Ai.unsafe.Yn 2 14)
    (put.Ai.variable.Yn 1 13)
    (call 16 fid 3 pathname)
    (either 16 124)
    (put.Ai.value.Yn 1 13)
    (get.Ai.constant 1 NIL)
    (jump.to 132)
;124
    (or.finally)
    (put.Ai.unsafe.Yn 2 13)
    (put.Ai.value.Yn 1 12)
    (call 14 name 2 si)
;132
    (load.choice.point)
    (store.variable.Yn 11)
    (either 14 167)
    (put.Ai.variable.Yn 3 10)
    (put.Ai.constant 2 46)
    (put.Ai.value.Yn 1 7)
    (call 14 C 3 si)
    (load.value.Yn 11)
    (cut.to.choice.point)
    (put.Ai.variable.Yn 3 1)
    (put.Ai.unsafe.Yn 2 10)
    (put.Ai.variable.Yn 1 9)
    (call 12 fid 3 pathname)
    (put.Ai.unsafe.Yn 2 9)
    (put.Ai.value.Yn 1 8)
    (call 10 name 2 si)
    (jump.to 172)
;167
    (or.finally)
    (put.Ai.variable.Yn 1 1)
    (get.Ai.value.Yn 1 7)
;172
    (load.choice.point)
    (store.variable.Yn 6)
    (either 9 204)
    (put.Ai.variable.Yn 3 5)
    (put.Ai.constant 2 46)
    (put.Ai.value.Yn 1 1)
    (call 9 C 3 si)
    (load.value.Yn 6)
    (cut.to.choice.point)
    (put.Ai.value.Yn 3 2)
    (put.Ai.unsafe.Yn 2 5)
    (put.Ai.variable.Yn 1 3)
    (call 7 fid 3 pathname)
    (put.Ai.value.Yn 2 4)
    (put.Ai.unsafe.Yn 1 3)
    (depart ver 2 pathname)
;204
    (or.finally)
    (put.Ai.value.Yn 1 2)
    (get.Ai.value.Yn 1 1)
    (progress)
)

(ASSEMBLE.CLAUSE ( path←record 4 pathname ) 196
    (get.Ai.constant 1 d)
    (get.Ai.structure 2 pathname 7)
    (unify.void 1)
    (unify.symbol dsk)
    (allocate)
    (unify.variable.Yn 18)
    (unify.variable.Yn 16)
    (unify.variable.Yn 13)
    (unify.variable.Yn 9)
    (unify.variable.Yn 4)
    (get.Ai.variable.Yn 3 19)
    (get.Ai.variable.Yn 4 2)
    (load.choice.point)
    (store.variable.Yn 20)
    (either 23 45)
    (put.Ai.variable.Yn 3 17)
    (put.Ai.constant 2 60)
    (put.Ai.value.Yn 1 19)
    (call 23 C 3 si)
    (load.value.Yn 20)
    (cut.to.choice.point)
    (put.Ai.value.Yn 1 18)
    (get.Ai.constant 1 absolute)
    (jump.to 55)
;45
    (or.finally)
    (put.Ai.variable.Yn 1 17)
    (get.Ai.value.Yn 1 19)
    (put.Ai.value.Yn 1 18)
    (get.Ai.constant 1 0)
;55
    (put.Ai.variable.Yn 3 15)
    (put.Ai.unsafe.Yn 2 17)
    (put.Ai.value.Yn 1 16)
    (call 18 d←dirs 3 pathname)
    (put.Ai.variable.Yn 3 8)
    (put.Ai.unsafe.Yn 2 15)
    (put.Ai.variable.Yn 1 14)
    (call 17 fid 3 pathname)
    (either 17 83)
    (put.Ai.value.Yn 1 14)
    (get.Ai.constant 1 NIL)
    (jump.to 91)
;83
    (or.finally)
    (put.Ai.unsafe.Yn 2 14)
    (put.Ai.value.Yn 1 13)
    (call 15 name 2 si)
;91
    (load.choice.point)
    (store.variable.Yn 12)
    (either 15 126)
    (put.Ai.variable.Yn 3 11)
    (put.Ai.constant 2 46)
    (put.Ai.value.Yn 1 8)
    (call 15 C 3 si)
    (load.value.Yn 12)
    (cut.to.choice.point)
    (put.Ai.variable.Yn 3 1)
    (put.Ai.unsafe.Yn 2 11)
    (put.Ai.variable.Yn 1 10)
    (call 13 fid 3 pathname)
    (put.Ai.unsafe.Yn 2 10)
    (put.Ai.value.Yn 1 9)
    (call 11 name 2 si)
    (jump.to 131)
;126
    (or.finally)
    (put.Ai.variable.Yn 1 1)
    (get.Ai.value.Yn 1 8)
;131
    (load.choice.point)
    (store.variable.Yn 6)
    (either 10 163)
    (put.Ai.variable.Yn 3 7)
    (put.Ai.constant 2 59)
    (put.Ai.value.Yn 1 1)
    (call 10 C 3 si)
    (load.value.Yn 6)
    (cut.to.choice.point)
    (put.Ai.value.Yn 3 2)
    (put.Ai.unsafe.Yn 2 7)
    (put.Ai.variable.Yn 1 3)
    (call 9 fid 3 pathname)
    (put.Ai.value.Yn 2 4)
    (put.Ai.value.Yn 1 3)
    (depart ver 2 pathname)
;163
    (or 192)
    (put.Ai.variable.Yn 3 5)
    (put.Ai.constant 2 46)
    (put.Ai.value.Yn 1 1)
    (call 9 C 3 si)
    (load.value.Yn 6)
    (cut.to.choice.point)
    (put.Ai.value.Yn 3 2)
    (put.Ai.unsafe.Yn 2 5)
    (put.Ai.variable.Yn 1 3)
    (call 7 fid 3 pathname)
    (put.Ai.value.Yn 2 4)
    (put.Ai.unsafe.Yn 1 3)
    (depart ver 2 pathname)
;192
    (or.finally)
    (put.Ai.value.Yn 1 2)
    (get.Ai.value.Yn 1 1)
    (progress)
)

(ASSEMBLE.CLAUSE ( vms←dirs 4 pathname ) 38
    (allocate)
    (get.Ai.variable.Yn 1 4)
    (get.Ai.variable.Yn 2 1)
    (put.Ai.value.Xn 2 3)
    (get.Ai.variable.Yn 4 3)
    (put.Ai.variable.Yn 3 2)
    (put.Ai.value.Yn 1 4)
    (call 7 vms←dashes 3 pathname)
    (either 7 26)
    (put.Ai.value.Yn 1 4)
    (is.a 254)
    (jump.to 32)
;26
    (or.finally)
    (put.Ai.value.Yn 1 4)
    (get.Ai.constant 1 absolute)
;32
    (put.Ai.value.Yn 3 3)
    (put.Ai.unsafe.Yn 2 2)
    (put.Ai.value.Yn 1 1)
    (depart vms←dirs 3 pathname)
)

(ASSEMBLE.CLAUSE ( vms←dirs 3 pathname ) 6
    (get.Ai.constant 1 NIL)
    (get.Ai.value.Xn 3 2)
    (proceed)
)

(ASSEMBLE.CLAUSE ( vms←dirs 3 pathname ) 56
    (get.Ai.list 1)
    (allocate)
    (unify.variable.Yn 6)
    (unify.variable.Yn 1)
    (get.Ai.variable.Yn 3 3)
    (put.Ai.variable.Yn 3 2)
    (put.Ai.variable.Yn 1 7)
    (call 10 vms←alphameric 3 pathname)
    (put.Ai.unsafe.Yn 2 7)
    (put.Ai.value.Yn 1 6)
    (call 8 name 2 si)
    (load.choice.point)
    (store.variable.Yn 5)
    (either 8 47)
    (put.Ai.variable.Yn 3 4)
    (put.Ai.constant 2 46)
    (put.Ai.value.Yn 1 2)
    (call 8 C 3 si)
    (load.value.Yn 5)
    (cut.to.choice.point)
    (put.Ai.value.Yn 3 3)
    (put.Ai.unsafe.Yn 2 4)
    (put.Ai.value.Yn 1 1)
    (depart vms←dirs 3 pathname)
;47
    (or.finally)
    (put.Ai.value.Yn 1 3)
    (get.Ai.value.Yn 1 2)
    (put.Ai.value.Yn 1 1)
    (get.Ai.constant 1 NIL)
    (progress)
)

(ASSEMBLE.CLAUSE ( vms←dashes 3 pathname ) 13
    (get.Ai.constant 1 0)
    (put.Ai.value.Xn 1 2)
    (allocate)
    (put.Ai.constant 2 46)
    (call 3 C 3 si)
    (depart.cut)
)

(ASSEMBLE.CLAUSE ( vms←dashes 3 pathname ) 54
    (allocate)
    (get.Ai.variable.Yn 1 1)
    (put.Ai.value.Xn 1 2)
    (get.Ai.variable.Yn 3 5)
    (put.Ai.variable.Yn 3 6)
    (put.Ai.constant 2 45)
    (call 9 C 3 si)
    (body.cut)
    (put.Ai.variable.Yn 2 4)
    (put.Ai.unsafe.Yn 1 6)
    (call 8 optional←spaces 2 pathname)
    (put.Ai.value.Yn 3 5)
    (put.Ai.unsafe.Yn 2 4)
    (put.Ai.variable.Yn 1 2)
    (call 6 vms←dashes 3 pathname)
    (load.choice.point)
    (store.variable.Yn 3)
    (either 6 50)
    (put.Ai.value.Yn 1 2)
    (is.a 1)
    (load.value.Yn 3)
    (cut.to.choice.point)
    (put.Ai.value.Yn 1 1)
    (get.Ai.constant 1 1)
    (progress)
;50
    (or.finally)
    (load.value.Yn 2)
    (add.pos.word 1)
    (store.value.Yn 1)
    (progress)
)

(ASSEMBLE.CLAUSE ( vms←dashes 3 pathname ) 3
    (get.Ai.value.Xn 3 2)
    (proceed)
)

(ASSEMBLE.CLAUSE ( optional←spaces 2 pathname ) 17
    (allocate)
    (get.Ai.variable.Yn 2 2)
    (put.Ai.variable.Yn 3 1)
    (put.Ai.constant 2 32)
    (call 5 C 3 si)
    (put.Ai.value.Yn 2 2)
    (put.Ai.unsafe.Yn 1 1)
    (depart optional←spaces 2 pathname)
)

(ASSEMBLE.CLAUSE ( optional←spaces 2 pathname ) 3
    (get.Ai.value.Xn 2 1)
    (proceed)
)

(ASSEMBLE.CLAUSE ( digit←string 3 pathname ) 14
    (allocate)
    (get.Ai.variable.Yn 1 1)
    (put.Ai.variable.Yn 1 2)
    (call 5 digit←sequence 3 pathname)
    (put.Ai.unsafe.Yn 2 2)
    (put.Ai.value.Yn 1 1)
    (depart name 2 si)
)

(ASSEMBLE.CLAUSE ( digit←sequence 3 pathname ) 6
    (get.Ai.constant 1 NIL)
    (get.Ai.value.Xn 3 2)
    (proceed)
)

(ASSEMBLE.CLAUSE ( digit←sequence 3 pathname ) 42
    (get.Ai.list 1)
    (allocate)
    (unify.variable.Yn 4)
    (unify.variable.Yn 1)
    (put.Ai.value.Xn 1 2)
    (get.Ai.variable.Yn 3 3)
    (put.Ai.variable.Yn 3 2)
    (put.Ai.value.Yn 2 4)
    (call 7 C 3 si)
    (either 7 30)
    (load.value.Yn 4)
    (load.pos.word 48)
    (not.less.than)
    (load.value.Yn 4)
    (load.pos.word 57)
    (not.greater.than)
    (jump.to 36)
;30
    (or.finally)
    (put.Ai.value.Yn 1 4)
    (get.Ai.constant 1 45)
;36
    (put.Ai.value.Yn 3 3)
    (put.Ai.unsafe.Yn 2 2)
    (put.Ai.value.Yn 1 1)
    (depart digit←sequence 3 pathname)
)

(ASSEMBLE.CLAUSE ( vms←alphameric 3 pathname ) 30
    (get.Ai.list 1)
    (allocate)
    (unify.variable.Yn 5)
    (unify.variable.Yn 1)
    (put.Ai.value.Xn 1 2)
    (get.Ai.variable.Yn 3 3)
    (put.Ai.variable.Yn 3 2)
    (put.Ai.variable.Yn 2 4)
    (call 8 C 3 si)
    (put.Ai.value.Yn 2 5)
    (put.Ai.unsafe.Yn 1 4)
    (call 6 vms←alphanum 2 pathname)
    (put.Ai.value.Yn 3 3)
    (put.Ai.unsafe.Yn 2 2)
    (put.Ai.value.Yn 1 1)
    (depart vms←alphameric 3 pathname)
)

(ASSEMBLE.CLAUSE ( vms←alphameric 3 pathname ) 6
    (get.Ai.constant 1 NIL)
    (get.Ai.value.Xn 3 2)
    (proceed)
)

(ASSEMBLE.CLAUSE ( vms←alphanum 2 pathname ) 13
    (load.value.Xn 1)
    (load.pos.word 97)
    (not.less.than)
    (load.value.Xn 1)
    (load.pos.word 122)
    (not.greater.than)
    (load.value.Xn 1)
    (add.neg.word -32)
    (store.value.Xn 2)
    (proceed)
)

(ASSEMBLE.CLAUSE ( vms←alphanum 2 pathname ) 11
    (get.Ai.value.Xn 2 1)
    (load.value.Xn 1)
    (load.pos.word 65)
    (not.less.than)
    (load.value.Xn 1)
    (load.pos.word 90)
    (not.greater.than)
    (proceed)
)

(ASSEMBLE.CLAUSE ( vms←alphanum 2 pathname ) 11
    (get.Ai.value.Xn 2 1)
    (load.value.Xn 1)
    (load.pos.word 48)
    (not.less.than)
    (load.value.Xn 1)
    (load.pos.word 57)
    (not.greater.than)
    (proceed)
)

(ASSEMBLE.CLAUSE ( vms←alphanum 2 pathname ) 7
    (get.Ai.constant 1 36)
    (get.Ai.constant 2 36)
    (proceed)
)

(ASSEMBLE.CLAUSE ( vms←alphanum 2 pathname ) 7
    (get.Ai.constant 1 95)
    (get.Ai.constant 2 95)
    (proceed)
)

(ASSEMBLE.CLAUSE ( unix←dirs 3 pathname ) 38
    (get.Ai.list 1)
    (allocate)
    (unify.variable.Yn 4)
    (unify.variable.Yn 1)
    (get.Ai.variable.Yn 3 3)
    (put.Ai.variable.Yn 3 6)
    (put.Ai.variable.Yn 1 5)
    (call 9 string←with←dots 3 pathname)
    (put.Ai.variable.Yn 3 2)
    (put.Ai.constant 2 47)
    (put.Ai.unsafe.Yn 1 6)
    (call 8 C 3 si)
    (put.Ai.unsafe.Yn 2 5)
    (put.Ai.value.Yn 1 4)
    (call 6 name 2 si)
    (put.Ai.value.Yn 3 3)
    (put.Ai.unsafe.Yn 2 2)
    (put.Ai.value.Yn 1 1)
    (depart unix←dirs 3 pathname)
)

(ASSEMBLE.CLAUSE ( unix←dirs 3 pathname ) 6
    (get.Ai.constant 1 NIL)
    (get.Ai.value.Xn 3 2)
    (proceed)
)

(ASSEMBLE.CLAUSE ( process←unix←dirs 3 pathname ) 47
    (allocate)
    (get.Ai.variable.Yn 2 1)
    (get.Ai.variable.Yn 3 5)
    (put.Ai.variable.Yn 2 4)
    (call 8 compress←unix←dirs 2 pathname)
    (put.Ai.value.Yn 3 5)
    (put.Ai.variable.Yn 2 3)
    (put.Ai.unsafe.Yn 1 4)
    (call 6 initial←dot←dots 3 pathname)
    (load.value.Yn 3)
    (load.pos.word 0)
    (greater.than.else 31)
    (put.Ai.unsafe.Yn 1 3)
    (get.Ai.value.Yn 1 1)
    (progress)
;31
    (load.choice.point)
    (store.variable.Yn 2)
    (either 5 47)
    (put.Ai.value.Yn 1 1)
    (is.a 1)
    (load.value.Yn 2)
    (cut.to.choice.point)
    (put.Ai.value.Yn 1 1)
    (get.Ai.constant 1 0)
    (progress)
;47
    (or.finally)
    (progress)
)

(ASSEMBLE.CLAUSE ( initial←dot←dots 3 pathname ) 18
    (get.Ai.list 1)
    (unify.symbol %.%.)
    (unify.variable.Xn 1)
    (allocate)
    (get.Ai.variable.Yn 2 1)
    (head.cut)
    (put.Ai.variable.Yn 2 2)
    (call 5 initial←dot←dots 3 pathname)
    (load.value.Yn 2)
    (add.pos.word 1)
    (store.value.Yn 1)
    (progress)
)

(ASSEMBLE.CLAUSE ( initial←dot←dots 3 pathname ) 6
    (get.Ai.constant 2 0)
    (get.Ai.value.Xn 3 1)
    (proceed)
)

(ASSEMBLE.CLAUSE ( compress←unix←dirs 2 pathname ) 5
    (get.Ai.constant 1 NIL)
    (get.Ai.nil 2)
    (proceed)
)

(ASSEMBLE.CLAUSE ( compress←unix←dirs 2 pathname ) 11
    (get.Ai.list 1)
    (unify.symbol %.%.)
    (unify.variable.Xn 1)
    (get.Ai.list 2)
    (unify.symbol %.%.)
    (unify.variable.Xn 2)
    (head.cut)
    (execute compress←unix←dirs 2 pathname)
)

(ASSEMBLE.CLAUSE ( compress←unix←dirs 2 pathname ) 19
    (get.Ai.list 1)
    (allocate)
    (unify.variable.Yn 1)
    (unify.variable.Xn 1)
    (get.Ai.variable.Yn 2 3)
    (put.Ai.variable.Yn 2 2)
    (call 6 compress←unix←dirs 2 pathname)
    (put.Ai.value.Yn 3 3)
    (put.Ai.unsafe.Yn 2 2)
    (put.Ai.value.Yn 1 1)
    (depart compress←unix←dirs1 3 pathname)
)

(ASSEMBLE.CLAUSE ( compress←unix←dirs1 3 pathname ) 7
    (get.Ai.list 2)
    (unify.symbol %.%.)
    (unify.variable.Xn 1)
    (get.Ai.value.Xn 3 1)
    (cut.proceed)
)

(ASSEMBLE.CLAUSE ( compress←unix←dirs1 3 pathname ) 4
    (get.Ai.list 3)
    (unify.local.Xn 1)
    (unify.local.Xn 2)
    (proceed)
)

(ASSEMBLE.CLAUSE ( unix←two←parts 5 pathname ) 32
    (allocate)
    (get.Ai.variable.Yn 2 1)
    (get.Ai.symbol 3 true)
    (put.Ai.value.Xn 2 4)
    (get.Ai.variable.Yn 5 3)
    (put.Ai.variable.Yn 3 4)
    (call 7 string←with←dots 3 pathname)
    (put.Ai.variable.Yn 3 2)
    (put.Ai.constant 2 46)
    (put.Ai.unsafe.Yn 1 4)
    (call 6 C 3 si)
    (put.Ai.value.Yn 3 3)
    (put.Ai.unsafe.Yn 2 2)
    (put.Ai.value.Yn 1 1)
    (depart string←no←dots 3 pathname)
)

(ASSEMBLE.CLAUSE ( unix←two←parts 5 pathname ) 8
    (get.Ai.symbol 3 false)
    (put.Ai.value.Xn 2 4)
    (put.Ai.value.Xn 3 5)
    (execute string←no←dots 3 pathname)
)

(ASSEMBLE.CLAUSE ( string←with←dots 3 pathname ) 6
    (get.Ai.constant 1 NIL)
    (get.Ai.value.Xn 3 2)
    (proceed)
)

(ASSEMBLE.CLAUSE ( string←with←dots 3 pathname ) 23
    (get.Ai.list 1)
    (unify.variable.Xn 4)
    (allocate)
    (unify.variable.Yn 1)
    (put.Ai.value.Xn 1 2)
    (get.Ai.variable.Yn 3 3)
    (put.Ai.variable.Yn 3 2)
    (put.Ai.value.Xn 2 4)
    (call 6 C 3 si)
    (put.Ai.value.Yn 3 3)
    (put.Ai.unsafe.Yn 2 2)
    (put.Ai.value.Yn 1 1)
    (depart string←with←dots 3 pathname)
)

(ASSEMBLE.CLAUSE ( string←no←dots 3 pathname ) 6
    (get.Ai.constant 1 NIL)
    (get.Ai.value.Xn 3 2)
    (proceed)
)

(ASSEMBLE.CLAUSE ( string←no←dots 3 pathname ) 32
    (get.Ai.list 1)
    (allocate)
    (unify.variable.Yn 4)
    (unify.variable.Yn 1)
    (put.Ai.value.Xn 1 2)
    (get.Ai.variable.Yn 3 3)
    (put.Ai.variable.Yn 3 2)
    (put.Ai.value.Yn 2 4)
    (call 7 C 3 si)
    (put.Ai.constant 2 46)
    (put.Ai.value.Yn 1 4)
    (compare)
    (load.pos.word 0)
    (not.equal.to)
    (put.Ai.value.Yn 3 3)
    (put.Ai.unsafe.Yn 2 2)
    (put.Ai.value.Yn 1 1)
    (depart string←no←dots 3 pathname)
)

(ASSEMBLE.CLAUSE ( d←dirs 3 pathname ) 76
    (get.Ai.list 1)
    (allocate)
    (unify.variable.Yn 1)
    (unify.variable.Yn 3)
    (get.Ai.variable.Yn 3 5)
    (put.Ai.variable.Yn 3 6)
    (put.Ai.variable.Yn 1 2)
    (call 10 fid 3 pathname)
    (either 10 44)
    (put.Ai.variable.Yn 3 7)
    (put.Ai.constant 2 62)
    (put.Ai.value.Yn 1 6)
    (call 10 C 3 si)
    (body.cut)
    (put.Ai.value.Yn 2 2)
    (put.Ai.value.Yn 1 1)
    (call 10 name 2 si)
    (put.Ai.value.Yn 3 5)
    (put.Ai.unsafe.Yn 2 7)
    (put.Ai.value.Yn 1 3)
    (depart d←dirs 3 pathname)
;44
    (or.finally)
    (put.Ai.variable.Yn 3 4)
    (put.Ai.constant 2 46)
    (put.Ai.unsafe.Yn 1 6)
    (call 8 C 3 si)
    (put.Ai.value.Yn 3 5)
    (put.Ai.unsafe.Yn 2 4)
    (put.Ai.value.Yn 1 3)
    (call 6 d←dirs 3 pathname)
    (put.Ai.nil 2)
    (put.Ai.value.Yn 1 3)
    (compare)
    (load.pos.word 0)
    (not.equal.to)
    (body.cut)
    (put.Ai.unsafe.Yn 2 2)
    (put.Ai.value.Yn 1 1)
    (depart name 2 si)
)

(ASSEMBLE.CLAUSE ( d←dirs 3 pathname ) 6
    (get.Ai.constant 1 NIL)
    (get.Ai.value.Xn 3 2)
    (proceed)
)

(ASSEMBLE.CLAUSE ( ver 2 pathname ) 32
    (allocate)
    (get.Ai.variable.Yn 2 2)
    (put.Ai.value.Xn 2 1)
    (put.Ai.variable.Yn 1 1)
    (call 6 name 2 si)
    (load.choice.point)
    (store.variable.Yn 3)
    (either 6 27)
    (put.Ai.value.Yn 1 1)
    (is.a 24)
    (load.value.Yn 3)
    (cut.to.choice.point)
    (put.Ai.value.Yn 1 1)
    (get.Ai.value.Yn 1 2)
    (progress)
;27
    (or.finally)
    (put.Ai.unsafe.Yn 1 1)
    (get.Ai.constant 1 |.(MKATOM ""))
    (progress)
)

(ASSEMBLE.CLAUSE ( path←string 4 pathname ) 361
    (get.Ai.constant 1 tops20)
    (get.Ai.structure 2 pathname 7)
    (unify.void 1)
    (allocate)
    (unify.variable.Yn 29)
    (unify.variable.Yn 24)
    (unify.variable.Yn 17)
    (unify.variable.Yn 13)
    (unify.variable.Yn 8)
    (unify.variable.Yn 1)
    (get.Ai.variable.Yn 3 30)
    (get.Ai.variable.Yn 4 3)
    (initialize.Yn 14)
    (either 34 42)
    (put.Ai.variable.Yn 1 22)
    (get.Ai.value.Yn 1 30)
    (load.choice.point)
    (store.variable.Yn 31)
    (either 34 40)
    (put.Ai.value.Yn 1 29)
    (is.a 1)
    (load.value.Yn 31)
    (cut.to.choice.point)
    (jump.to 62)
;40
    (or.finally)
    (fail)
;42
    (or.finally)
    (put.Ai.variable.Yn 3 28)
    (put.Ai.value.Yn 2 30)
    (put.Ai.value.Yn 1 29)
    (call 31 atm 3 pathname)
    (put.Ai.variable.Yn 3 22)
    (put.Ai.constant 2 58)
    (put.Ai.unsafe.Yn 1 28)
    (call 30 C 3 si)
;62
    (either 30 83)
    (put.Ai.value.Yn 1 14)
    (get.Ai.value.Yn 1 22)
    (load.choice.point)
    (store.variable.Yn 27)
    (either 30 81)
    (put.Ai.value.Yn 1 24)
    (is.a 1)
    (load.value.Yn 27)
    (cut.to.choice.point)
    (jump.to 210)
;81
    (or.finally)
    (fail)
;83
    (or 129)
    (load.choice.point)
    (store.variable.Xn 1)
    (either 29 127)
    (put.Ai.value.Yn 2 24)
    (get.Ai.symbol 2 absolute)
    (load.value.Xn 1)
    (cut.to.choice.point)
    (put.Ai.variable.Yn 3 26)
    (put.Ai.constant 2 60)
    (put.Ai.value.Yn 1 22)
    (call 29 C 3 si)
    (put.Ai.variable.Yn 3 25)
    (put.Ai.unsafe.Yn 2 26)
    (put.Ai.value.Yn 1 17)
    (call 28 dot←dirs 3 pathname)
    (put.Ai.value.Yn 3 14)
    (put.Ai.constant 2 62)
    (put.Ai.unsafe.Yn 1 25)
    (call 27 C 3 si)
    (jump.to 210)
;127
    (or.finally)
    (fail)
;129
    (or.finally)
    (load.choice.point)
    (store.variable.Yn 23)
    (either 27 208)
    (put.Ai.value.Yn 1 24)
    (is.a 24)
    (load.value.Yn 24)
    (load.pos.word 0)
    (not.less.than)
    (load.value.Yn 24)
    (load.pos.word 16)
    (not.greater.than)
    (put.Ai.value.Yn 3 24)
    (put.Ai.constant 2 0)
    (put.Ai.variable.Yn 1 20)
    (call 26 dashes 3 pathname)
    (load.value.Yn 23)
    (cut.to.choice.point)
    (put.Ai.variable.Yn 3 21)
    (put.Ai.constant 2 60)
    (put.Ai.unsafe.Yn 1 22)
    (call 24 C 3 si)
    (put.Ai.variable.Yn 3 19)
    (put.Ai.unsafe.Yn 2 21)
    (put.Ai.unsafe.Yn 1 20)
    (call 22 any 3 pathname)
    (put.Ai.variable.Yn 3 18)
    (put.Ai.constant 2 46)
    (put.Ai.unsafe.Yn 1 19)
    (call 21 C 3 si)
    (put.Ai.variable.Yn 3 16)
    (put.Ai.unsafe.Yn 2 18)
    (put.Ai.value.Yn 1 17)
    (call 19 dot←dirs 3 pathname)
    (put.Ai.value.Yn 3 14)
    (put.Ai.constant 2 62)
    (put.Ai.unsafe.Yn 1 16)
    (call 18 C 3 si)
    (jump.to 210)
;208
    (or.finally)
    (fail)
;210
    (either 18 231)
    (put.Ai.variable.Yn 1 11)
    (get.Ai.value.Yn 1 14)
    (load.choice.point)
    (store.variable.Yn 15)
    (either 18 229)
    (put.Ai.value.Yn 1 13)
    (is.a 1)
    (load.value.Yn 15)
    (cut.to.choice.point)
    (jump.to 241)
;229
    (or.finally)
    (fail)
;231
    (or.finally)
    (put.Ai.variable.Yn 3 11)
    (put.Ai.unsafe.Yn 2 14)
    (put.Ai.value.Yn 1 13)
    (call 15 atm 3 pathname)
;241
    (either 15 262)
    (put.Ai.variable.Yn 1 4)
    (get.Ai.value.Yn 1 11)
    (load.choice.point)
    (store.variable.Yn 12)
    (either 15 260)
    (put.Ai.value.Yn 1 8)
    (is.a 1)
    (load.value.Yn 12)
    (cut.to.choice.point)
    (jump.to 282)
;260
    (or.finally)
    (fail)
;262
    (or.finally)
    (put.Ai.variable.Yn 3 10)
    (put.Ai.constant 2 46)
    (put.Ai.unsafe.Yn 1 11)
    (call 13 C 3 si)
    (put.Ai.variable.Yn 3 4)
    (put.Ai.unsafe.Yn 2 10)
    (put.Ai.value.Yn 1 8)
    (call 12 atm 3 pathname)
;282
    (either 12 302)
    (put.Ai.value.Yn 1 3)
    (get.Ai.value.Yn 1 4)
    (load.choice.point)
    (store.variable.Yn 9)
    (either 12 300)
    (put.Ai.value.Yn 1 1)
    (is.a 1)
    (load.value.Yn 9)
    (cut.to.choice.point)
    (progress)
;300
    (or.finally)
    (fail)
;302
    (or 344)
    (load.choice.point)
    (store.variable.Yn 7)
    (either 11 342)
    (put.Ai.value.Yn 1 8)
    (is.a 1)
    (load.value.Yn 7)
    (cut.to.choice.point)
    (put.Ai.variable.Yn 3 6)
    (put.Ai.constant 2 46)
    (put.Ai.value.Yn 1 4)
    (call 9 C 3 si)
    (put.Ai.variable.Yn 3 5)
    (put.Ai.constant 2 46)
    (put.Ai.unsafe.Yn 1 6)
    (call 8 C 3 si)
    (put.Ai.value.Yn 3 3)
    (put.Ai.unsafe.Yn 2 5)
    (put.Ai.value.Yn 1 1)
    (depart atm 3 pathname)
;342
    (or.finally)
    (fail)
;344
    (or.finally)
    (put.Ai.variable.Yn 3 2)
    (put.Ai.constant 2 46)
    (put.Ai.unsafe.Yn 1 4)
    (call 6 C 3 si)
    (put.Ai.value.Yn 3 3)
    (put.Ai.unsafe.Yn 2 2)
    (put.Ai.value.Yn 1 1)
    (depart atm 3 pathname)
)

(ASSEMBLE.CLAUSE ( path←string 4 pathname ) 393
    (get.Ai.constant 1 vms)
    (get.Ai.structure 2 pathname 7)
    (allocate)
    (unify.variable.Yn 32)
    (unify.variable.Yn 27)
    (unify.variable.Yn 22)
    (unify.variable.Yn 15)
    (unify.variable.Yn 11)
    (unify.variable.Yn 7)
    (unify.variable.Yn 1)
    (get.Ai.variable.Yn 3 33)
    (get.Ai.variable.Yn 4 3)
    (initialize.Yn 12)
    (either 37 42)
    (put.Ai.variable.Yn 1 28)
    (get.Ai.value.Yn 1 33)
    (load.choice.point)
    (store.variable.Yn 34)
    (either 37 40)
    (put.Ai.value.Yn 1 32)
    (is.a 1)
    (load.value.Yn 34)
    (cut.to.choice.point)
    (jump.to 72)
;40
    (or.finally)
    (fail)
;42
    (or.finally)
    (put.Ai.variable.Yn 3 31)
    (put.Ai.value.Yn 2 33)
    (put.Ai.value.Yn 1 32)
    (call 34 atm 3 pathname)
    (put.Ai.variable.Yn 3 30)
    (put.Ai.constant 2 58)
    (put.Ai.unsafe.Yn 1 31)
    (call 33 C 3 si)
    (put.Ai.variable.Yn 3 28)
    (put.Ai.constant 2 58)
    (put.Ai.unsafe.Yn 1 30)
    (call 32 C 3 si)
;72
    (either 32 93)
    (put.Ai.variable.Yn 1 20)
    (get.Ai.value.Yn 1 28)
    (load.choice.point)
    (store.variable.Yn 29)
    (either 32 91)
    (put.Ai.value.Yn 1 27)
    (is.a 1)
    (load.value.Yn 29)
    (cut.to.choice.point)
    (jump.to 113)
;91
    (or.finally)
    (fail)
;93
    (or.finally)
    (put.Ai.variable.Yn 3 26)
    (put.Ai.unsafe.Yn 2 28)
    (put.Ai.value.Yn 1 27)
    (call 29 atm 3 pathname)
    (put.Ai.variable.Yn 3 20)
    (put.Ai.constant 2 58)
    (put.Ai.unsafe.Yn 1 26)
    (call 28 C 3 si)
;113
    (either 28 134)
    (put.Ai.value.Yn 1 12)
    (get.Ai.value.Yn 1 20)
    (load.choice.point)
    (store.variable.Yn 25)
    (either 28 132)
    (put.Ai.value.Yn 1 22)
    (is.a 1)
    (load.value.Yn 25)
    (cut.to.choice.point)
    (jump.to 261)
;132
    (or.finally)
    (fail)
;134
    (or 180)
    (load.choice.point)
    (store.variable.Xn 1)
    (either 27 178)
    (put.Ai.value.Yn 2 22)
    (get.Ai.symbol 2 absolute)
    (load.value.Xn 1)
    (cut.to.choice.point)
    (put.Ai.variable.Yn 3 24)
    (put.Ai.constant 2 91)
    (put.Ai.value.Yn 1 20)
    (call 27 C 3 si)
    (put.Ai.variable.Yn 3 23)
    (put.Ai.unsafe.Yn 2 24)
    (put.Ai.value.Yn 1 15)
    (call 26 dot←dirs 3 pathname)
    (put.Ai.value.Yn 3 12)
    (put.Ai.constant 2 93)
    (put.Ai.unsafe.Yn 1 23)
    (call 25 C 3 si)
    (jump.to 261)
;178
    (or.finally)
    (fail)
;180
    (or.finally)
    (load.choice.point)
    (store.variable.Yn 21)
    (either 25 259)
    (put.Ai.value.Yn 1 22)
    (is.a 24)
    (load.value.Yn 22)
    (load.pos.word 0)
    (not.less.than)
    (load.value.Yn 22)
    (load.pos.word 16)
    (not.greater.than)
    (put.Ai.value.Yn 3 22)
    (put.Ai.constant 2 0)
    (put.Ai.variable.Yn 1 18)
    (call 24 dashes 3 pathname)
    (load.value.Yn 21)
    (cut.to.choice.point)
    (put.Ai.variable.Yn 3 19)
    (put.Ai.constant 2 91)
    (put.Ai.unsafe.Yn 1 20)
    (call 22 C 3 si)
    (put.Ai.variable.Yn 3 17)
    (put.Ai.unsafe.Yn 2 19)
    (put.Ai.unsafe.Yn 1 18)
    (call 20 any 3 pathname)
    (put.Ai.variable.Yn 3 16)
    (put.Ai.constant 2 46)
    (put.Ai.unsafe.Yn 1 17)
    (call 19 C 3 si)
    (put.Ai.variable.Yn 3 14)
    (put.Ai.unsafe.Yn 2 16)
    (put.Ai.value.Yn 1 15)
    (call 17 dot←dirs 3 pathname)
    (put.Ai.value.Yn 3 12)
    (put.Ai.constant 2 93)
    (put.Ai.unsafe.Yn 1 14)
    (call 16 C 3 si)
    (jump.to 261)
;259
    (or.finally)
    (fail)
;261
    (either 16 282)
    (put.Ai.variable.Yn 1 9)
    (get.Ai.value.Yn 1 12)
    (load.choice.point)
    (store.variable.Yn 13)
    (either 16 280)
    (put.Ai.value.Yn 1 11)
    (is.a 1)
    (load.value.Yn 13)
    (cut.to.choice.point)
    (jump.to 292)
;280
    (or.finally)
    (fail)
;282
    (or.finally)
    (put.Ai.variable.Yn 3 9)
    (put.Ai.unsafe.Yn 2 12)
    (put.Ai.value.Yn 1 11)
    (call 13 atm 3 pathname)
;292
    (either 13 313)
    (put.Ai.variable.Yn 1 4)
    (get.Ai.value.Yn 1 9)
    (load.choice.point)
    (store.variable.Yn 10)
    (either 13 311)
    (put.Ai.value.Yn 1 7)
    (is.a 1)
    (load.value.Yn 10)
    (cut.to.choice.point)
    (jump.to 333)
;311
    (or.finally)
    (fail)
;313
    (or.finally)
    (put.Ai.variable.Yn 3 8)
    (put.Ai.constant 2 46)
    (put.Ai.unsafe.Yn 1 9)
    (call 11 C 3 si)
    (put.Ai.variable.Yn 3 4)
    (put.Ai.unsafe.Yn 2 8)
    (put.Ai.value.Yn 1 7)
    (call 9 atm 3 pathname)
;333
    (either 9 353)
    (put.Ai.value.Yn 1 3)
    (get.Ai.value.Yn 1 4)
    (load.choice.point)
    (store.variable.Yn 6)
    (either 9 351)
    (put.Ai.value.Yn 1 1)
    (is.a 1)
    (load.value.Yn 6)
    (cut.to.choice.point)
    (progress)
;351
    (or.finally)
    (fail)
;353
    (or 376)
    (load.choice.point)
    (store.variable.Yn 5)
    (either 8 374)
    (put.Ai.value.Yn 1 1)
    (is.a 128)
    (load.value.Yn 5)
    (cut.to.choice.point)
    (put.Ai.value.Yn 3 3)
    (put.Ai.constant 2 59)
    (put.Ai.value.Yn 1 4)
    (depart C 3 si)
;374
    (or.finally)
    (fail)
;376
    (or.finally)
    (put.Ai.variable.Yn 3 2)
    (put.Ai.constant 2 59)
    (put.Ai.unsafe.Yn 1 4)
    (call 6 C 3 si)
    (put.Ai.value.Yn 3 3)
    (put.Ai.unsafe.Yn 2 2)
    (put.Ai.value.Yn 1 1)
    (depart atm 3 pathname)
)

(ASSEMBLE.CLAUSE ( path←string 4 pathname ) 163
    (get.Ai.constant 1 d)
    (get.Ai.structure 2 pathname 7)
    (unify.void 2)
    (unify.variable.Xn 2)
    (allocate)
    (unify.variable.Yn 13)
    (unify.variable.Yn 10)
    (unify.variable.Yn 6)
    (unify.variable.Yn 1)
    (get.Ai.variable.Yn 3 15)
    (get.Ai.variable.Yn 4 3)
    (load.choice.point)
    (store.variable.Xn 1)
    (either 18 40)
    (get.Ai.symbol 2 absolute)
    (load.value.Xn 1)
    (cut.to.choice.point)
    (put.Ai.variable.Yn 3 14)
    (put.Ai.constant 2 60)
    (put.Ai.value.Yn 1 15)
    (call 18 C 3 si)
    (jump.to 45)
;40
    (or.finally)
    (put.Ai.variable.Yn 1 14)
    (get.Ai.value.Yn 1 15)
;45
    (put.Ai.variable.Yn 3 11)
    (put.Ai.unsafe.Yn 2 14)
    (put.Ai.value.Yn 1 13)
    (call 15 dirs←d 3 pathname)
    (either 15 75)
    (put.Ai.variable.Yn 1 8)
    (get.Ai.value.Yn 1 11)
    (load.choice.point)
    (store.variable.Yn 12)
    (either 15 73)
    (put.Ai.value.Yn 1 10)
    (is.a 1)
    (load.value.Yn 12)
    (cut.to.choice.point)
    (jump.to 85)
;73
    (or.finally)
    (fail)
;75
    (or.finally)
    (put.Ai.variable.Yn 3 8)
    (put.Ai.unsafe.Yn 2 11)
    (put.Ai.value.Yn 1 10)
    (call 12 atm 3 pathname)
;85
    (either 12 106)
    (put.Ai.variable.Yn 1 4)
    (get.Ai.value.Yn 1 8)
    (load.choice.point)
    (store.variable.Yn 9)
    (either 12 104)
    (put.Ai.value.Yn 1 6)
    (is.a 1)
    (load.value.Yn 9)
    (cut.to.choice.point)
    (jump.to 126)
;104
    (or.finally)
    (fail)
;106
    (or.finally)
    (put.Ai.variable.Yn 3 7)
    (put.Ai.constant 2 46)
    (put.Ai.unsafe.Yn 1 8)
    (call 10 C 3 si)
    (put.Ai.variable.Yn 3 4)
    (put.Ai.unsafe.Yn 2 7)
    (put.Ai.value.Yn 1 6)
    (call 8 atm 3 pathname)
;126
    (either 8 146)
    (put.Ai.value.Yn 1 3)
    (get.Ai.value.Yn 1 4)
    (load.choice.point)
    (store.variable.Yn 5)
    (either 8 144)
    (put.Ai.value.Yn 1 1)
    (is.a 1)
    (load.value.Yn 5)
    (cut.to.choice.point)
    (progress)
;144
    (or.finally)
    (fail)
;146
    (or.finally)
    (put.Ai.variable.Yn 3 2)
    (put.Ai.constant 2 59)
    (put.Ai.unsafe.Yn 1 4)
    (call 6 C 3 si)
    (put.Ai.value.Yn 3 3)
    (put.Ai.unsafe.Yn 2 2)
    (put.Ai.value.Yn 1 1)
    (depart atm 3 pathname)
)

(ASSEMBLE.CLAUSE ( path←string 4 pathname ) 211
    (get.Ai.constant 1 unix)
    (get.Ai.structure 2 pathname 7)
    (unify.void 2)
    (allocate)
    (unify.variable.Yn 11)
    (unify.variable.Yn 9)
    (unify.variable.Yn 6)
    (unify.variable.Yn 1)
    (unify.void 1)
    (get.Ai.variable.Yn 3 12)
    (get.Ai.variable.Yn 4 3)
    (initialize.Yn 7)
    (either 19 41)
    (put.Ai.value.Yn 1 7)
    (get.Ai.value.Yn 1 12)
    (load.choice.point)
    (store.variable.Yn 16)
    (either 19 39)
    (put.Ai.value.Yn 1 11)
    (is.a 1)
    (load.value.Yn 16)
    (cut.to.choice.point)
    (jump.to 143)
;39
    (or.finally)
    (fail)
;41
    (or 77)
    (load.choice.point)
    (store.variable.Xn 1)
    (either 18 75)
    (put.Ai.value.Yn 2 11)
    (get.Ai.symbol 2 absolute)
    (load.value.Xn 1)
    (cut.to.choice.point)
    (put.Ai.variable.Yn 3 15)
    (put.Ai.constant 2 47)
    (put.Ai.value.Yn 1 12)
    (call 18 C 3 si)
    (put.Ai.value.Yn 3 7)
    (put.Ai.unsafe.Yn 2 15)
    (put.Ai.value.Yn 1 9)
    (call 17 dirs←unx 3 pathname)
    (jump.to 143)
;75
    (or.finally)
    (fail)
;77
    (or 124)
    (load.choice.point)
    (store.variable.Xn 1)
    (either 17 122)
    (put.Ai.value.Yn 2 11)
    (get.Ai.constant 2 0)
    (load.value.Xn 1)
    (cut.to.choice.point)
    (put.Ai.variable.Yn 3 14)
    (put.Ai.constant 2 46)
    (put.Ai.value.Yn 1 12)
    (call 17 C 3 si)
    (put.Ai.variable.Yn 3 13)
    (put.Ai.constant 2 47)
    (put.Ai.unsafe.Yn 1 14)
    (call 16 C 3 si)
    (put.Ai.value.Yn 3 7)
    (put.Ai.unsafe.Yn 2 13)
    (put.Ai.value.Yn 1 9)
    (call 15 dirs←unx 3 pathname)
    (jump.to 143)
;122
    (or.finally)
    (fail)
;124
    (or.finally)
    (put.Ai.variable.Yn 3 10)
    (put.Ai.value.Yn 2 12)
    (put.Ai.value.Yn 1 11)
    (call 13 ddots 3 pathname)
    (put.Ai.value.Yn 3 7)
    (put.Ai.unsafe.Yn 2 10)
    (put.Ai.value.Yn 1 9)
    (call 11 dirs←unx 3 pathname)
;143
    (either 11 164)
    (put.Ai.variable.Yn 1 4)
    (get.Ai.value.Yn 1 7)
    (load.choice.point)
    (store.variable.Yn 8)
    (either 11 162)
    (put.Ai.value.Yn 1 6)
    (is.a 1)
    (load.value.Yn 8)
    (cut.to.choice.point)
    (jump.to 174)
;162
    (or.finally)
    (fail)
;164
    (or.finally)
    (put.Ai.variable.Yn 3 4)
    (put.Ai.unsafe.Yn 2 7)
    (put.Ai.value.Yn 1 6)
    (call 8 atm 3 pathname)
;174
    (either 8 194)
    (put.Ai.value.Yn 1 3)
    (get.Ai.value.Yn 1 4)
    (load.choice.point)
    (store.variable.Yn 5)
    (either 8 192)
    (put.Ai.value.Yn 1 1)
    (is.a 1)
    (load.value.Yn 5)
    (cut.to.choice.point)
    (progress)
;192
    (or.finally)
    (fail)
;194
    (or.finally)
    (put.Ai.variable.Yn 3 2)
    (put.Ai.constant 2 46)
    (put.Ai.unsafe.Yn 1 4)
    (call 6 C 3 si)
    (put.Ai.value.Yn 3 3)
    (put.Ai.unsafe.Yn 2 2)
    (put.Ai.value.Yn 1 1)
    (depart atm 3 pathname)
)

(ASSEMBLE.CLAUSE ( ddots 3 pathname ) 6
    (get.Ai.constant 1 0)
    (get.Ai.value.Xn 3 2)
    (cut.proceed)
)

(ASSEMBLE.CLAUSE ( ddots 3 pathname ) 45
    (allocate)
    (get.Ai.variable.Yn 1 3)
    (put.Ai.value.Xn 1 2)
    (get.Ai.variable.Yn 3 2)
    (put.Ai.variable.Yn 3 5)
    (put.Ai.constant 2 46)
    (call 8 C 3 si)
    (put.Ai.variable.Yn 3 4)
    (put.Ai.constant 2 46)
    (put.Ai.unsafe.Yn 1 5)
    (call 7 C 3 si)
    (put.Ai.variable.Yn 3 1)
    (put.Ai.constant 2 47)
    (put.Ai.unsafe.Yn 1 4)
    (call 6 C 3 si)
    (load.value.Yn 3)
    (add.neg.word -1)
    (store.variable.Xn 1)
    (put.Ai.value.Yn 3 2)
    (put.Ai.unsafe.Yn 2 1)
    (depart ddots 3 pathname)
)

(ASSEMBLE.CLAUSE ( dashes 3 pathname ) 6
    (get.Ai.constant 1 NIL)
    (get.Ai.value.Xn 3 2)
    (proceed)
)

(ASSEMBLE.CLAUSE ( dashes 3 pathname ) 11
    (get.Ai.list 1)
    (unify.constant 45)
    (unify.variable.Xn 1)
    (load.value.Xn 2)
    (add.pos.word 1)
    (store.variable.Xn 2)
    (execute dashes 3 pathname)
)

(ASSEMBLE.CLAUSE ( dirs←d 3 pathname ) 6
    (get.Ai.constant 1 NIL)
    (get.Ai.value.Xn 3 2)
    (proceed)
)

(ASSEMBLE.CLAUSE ( dirs←d 3 pathname ) 29
    (get.Ai.list 1)
    (unify.variable.Xn 1)
    (allocate)
    (unify.variable.Yn 1)
    (get.Ai.variable.Yn 3 3)
    (put.Ai.variable.Yn 3 4)
    (call 7 atm 3 pathname)
    (put.Ai.variable.Yn 3 2)
    (put.Ai.constant 2 62)
    (put.Ai.unsafe.Yn 1 4)
    (call 6 C 3 si)
    (put.Ai.value.Yn 3 3)
    (put.Ai.unsafe.Yn 2 2)
    (put.Ai.value.Yn 1 1)
    (depart dirs←d 3 pathname)
)

(ASSEMBLE.CLAUSE ( dirs←unx 3 pathname ) 6
    (get.Ai.constant 1 NIL)
    (get.Ai.value.Xn 3 2)
    (proceed)
)

(ASSEMBLE.CLAUSE ( dirs←unx 3 pathname ) 29
    (get.Ai.list 1)
    (unify.variable.Xn 1)
    (allocate)
    (unify.variable.Yn 1)
    (get.Ai.variable.Yn 3 3)
    (put.Ai.variable.Yn 3 4)
    (call 7 atm 3 pathname)
    (put.Ai.variable.Yn 3 2)
    (put.Ai.constant 2 47)
    (put.Ai.unsafe.Yn 1 4)
    (call 6 C 3 si)
    (put.Ai.value.Yn 3 3)
    (put.Ai.unsafe.Yn 2 2)
    (put.Ai.value.Yn 1 1)
    (depart dirs←unx 3 pathname)
)

(ASSEMBLE.CLAUSE ( atm 3 pathname ) 25
    (allocate)
    (get.Ai.variable.Yn 1 4)
    (get.Ai.variable.Yn 2 2)
    (get.Ai.variable.Yn 3 3)
    (put.Ai.value.Yn 1 4)
    (is.a 248)
    (put.Ai.variable.Yn 2 1)
    (put.Ai.value.Yn 1 4)
    (call 6 name 2 si)
    (put.Ai.value.Yn 3 3)
    (put.Ai.value.Yn 2 2)
    (put.Ai.unsafe.Yn 1 1)
    (depart any 3 pathname)
)

(ASSEMBLE.CLAUSE ( dot←dirs 3 pathname ) 6
    (get.Ai.list 1)
    (unify.variable.Xn 1)
    (unify.nil)
    (head.cut)
    (execute atm 3 pathname)
)

(ASSEMBLE.CLAUSE ( dot←dirs 3 pathname ) 30
    (get.Ai.list 1)
    (unify.variable.Xn 1)
    (allocate)
    (unify.variable.Yn 1)
    (get.Ai.variable.Yn 3 3)
    (head.cut)
    (put.Ai.variable.Yn 3 4)
    (call 7 atm 3 pathname)
    (put.Ai.variable.Yn 3 2)
    (put.Ai.constant 2 46)
    (put.Ai.unsafe.Yn 1 4)
    (call 6 C 3 si)
    (put.Ai.value.Yn 3 3)
    (put.Ai.unsafe.Yn 2 2)
    (put.Ai.value.Yn 1 1)
    (depart dot←dirs 3 pathname)
)

(ASSEMBLE.CLAUSE ( dot←dirs 3 pathname ) 6
    (get.Ai.constant 1 NIL)
    (get.Ai.value.Xn 3 2)
    (proceed)
)

(ASSEMBLE.CLAUSE ( merge←pathnames 3 pathname ) 87
    (get.Ai.structure 1 pathname 7)
    (unify.variable.Xn 1)
    (allocate)
    (unify.variable.Yn 16)
    (unify.variable.Yn 13)
    (unify.variable.Yn 10)
    (unify.variable.Yn 7)
    (unify.variable.Yn 4)
    (unify.variable.Yn 1)
    (get.Ai.structure 2 pathname 7)
    (unify.variable.Xn 2)
    (unify.variable.Yn 17)
    (unify.variable.Yn 14)
    (unify.variable.Yn 11)
    (unify.variable.Yn 8)
    (unify.variable.Yn 5)
    (unify.variable.Yn 2)
    (get.Ai.structure 3 pathname 7)
    (unify.variable.Xn 3)
    (unify.variable.Yn 18)
    (unify.variable.Yn 15)
    (unify.variable.Yn 12)
    (unify.variable.Yn 9)
    (unify.variable.Yn 6)
    (unify.variable.Yn 3)
    (call 21 merge←pnc 3 pathname)
    (put.Ai.value.Yn 3 18)
    (put.Ai.value.Yn 2 17)
    (put.Ai.value.Yn 1 16)
    (call 18 merge←pnc 3 pathname)
    (put.Ai.value.Yn 3 15)
    (put.Ai.value.Yn 2 14)
    (put.Ai.value.Yn 1 13)
    (call 15 merge←pnc 3 pathname)
    (put.Ai.value.Yn 3 12)
    (put.Ai.value.Yn 2 11)
    (put.Ai.value.Yn 1 10)
    (call 12 merge←pnc 3 pathname)
    (put.Ai.value.Yn 3 9)
    (put.Ai.value.Yn 2 8)
    (put.Ai.value.Yn 1 7)
    (call 9 merge←pnc 3 pathname)
    (put.Ai.value.Yn 3 6)
    (put.Ai.value.Yn 2 5)
    (put.Ai.value.Yn 1 4)
    (call 6 merge←pnc 3 pathname)
    (put.Ai.value.Yn 3 3)
    (put.Ai.value.Yn 2 2)
    (put.Ai.value.Yn 1 1)
    (depart merge←pnc 3 pathname)
)

(ASSEMBLE.CLAUSE ( merge←pnc 3 pathname ) 15
    (allocate)
    (get.Ai.variable.Yn 2 2)
    (get.Ai.variable.Yn 3 1)
    (is.a 1)
    (put.Ai.value.Yn 1 2)
    (is.a 254)
    (body.cut)
    (put.Ai.value.Yn 1 2)
    (get.Ai.value.Yn 1 1)
    (progress)
)

(ASSEMBLE.CLAUSE ( merge←pnc 3 pathname ) 3
    (get.Ai.value.Xn 3 1)
    (proceed)
)

(ASSEMBLE.CLAUSE ( pathname 1 pathname ) 114
    (get.Ai.structure 1 pathname 7)
    (allocate)
    (unify.variable.Yn 7)
    (unify.variable.Yn 6)
    (unify.variable.Yn 5)
    (unify.variable.Yn 4)
    (unify.variable.Yn 3)
    (unify.variable.Yn 2)
    (unify.variable.Yn 1)
    (either 10 21)
    (put.Ai.value.Yn 1 7)
    (is.a 1)
    (jump.to 25)
;21
    (or.finally)
    (put.Ai.value.Yn 1 7)
    (is.a 128)
;25
    (body.cut)
    (either 9 34)
    (put.Ai.value.Yn 1 6)
    (is.a 1)
    (jump.to 38)
;34
    (or.finally)
    (put.Ai.value.Yn 1 6)
    (is.a 128)
;38
    (body.cut)
    (either 8 50)
    (put.Ai.value.Yn 1 5)
    (is.a 1)
    (put.Ai.value.Yn 1 4)
    (is.a 1)
    (jump.to 76)
;50
    (or 67)
    (put.Ai.symbol 2 absolute)
    (put.Ai.value.Yn 1 5)
    (compare)
    (load.pos.word 0)
    (equal.to)
    (put.Ai.value.Yn 1 4)
    (call 8 is←atom←list 1 pathname)
    (jump.to 76)
;67
    (or.finally)
    (put.Ai.value.Yn 1 5)
    (is.a 24)
    (put.Ai.value.Yn 1 4)
    (call 6 is←atom←list 1 pathname)
;76
    (body.cut)
    (either 6 85)
    (put.Ai.value.Yn 1 3)
    (is.a 1)
    (jump.to 89)
;85
    (or.finally)
    (put.Ai.value.Yn 1 3)
    (is.a 248)
;89
    (body.cut)
    (either 5 98)
    (put.Ai.value.Yn 1 2)
    (is.a 1)
    (jump.to 102)
;98
    (or.finally)
    (put.Ai.value.Yn 1 2)
    (is.a 248)
;102
    (body.cut)
    (either 4 111)
    (put.Ai.value.Yn 1 1)
    (is.a 1)
    (jump.to 115)
;111
    (or.finally)
    (put.Ai.value.Yn 1 1)
    (is.a 24)
;115
    (depart.cut)
)

(ASSEMBLE.CLAUSE ( is←atom←list 1 pathname ) 4
    (allocate)
    (is.a 1)
    (body.cut)
    (fail)
)

(ASSEMBLE.CLAUSE ( is←atom←list 1 pathname ) 4
    (get.Ai.constant 1 NIL)
    (proceed)
)

(ASSEMBLE.CLAUSE ( is←atom←list 1 pathname ) 9
    (get.Ai.list 1)
    (unify.variable.Xn 1)
    (allocate)
    (unify.variable.Yn 1)
    (is.a 128)
    (put.Ai.value.Yn 1 1)
    (depart is←atom←list 1 pathname)
)

(ASSEMBLE.CLAUSE ( pathname←host 2 pathname ) 8
    (get.Ai.structure 1 pathname 7)
    (unify.variable.Xn 1)
    (unify.void 6)
    (get.Ai.value.Xn 2 1)
    (proceed)
)

(ASSEMBLE.CLAUSE ( pathname←device 2 pathname ) 9
    (get.Ai.structure 1 pathname 7)
    (unify.void 1)
    (unify.variable.Xn 1)
    (unify.void 5)
    (get.Ai.value.Xn 2 1)
    (proceed)
)

(ASSEMBLE.CLAUSE ( pathname←base 2 pathname ) 9
    (get.Ai.structure 1 pathname 7)
    (unify.void 2)
    (unify.variable.Xn 1)
    (unify.void 4)
    (get.Ai.value.Xn 2 1)
    (proceed)
)

(ASSEMBLE.CLAUSE ( pathname←directories 2 pathname ) 9
    (get.Ai.structure 1 pathname 7)
    (unify.void 3)
    (unify.variable.Xn 1)
    (unify.void 3)
    (get.Ai.value.Xn 2 1)
    (proceed)
)

(ASSEMBLE.CLAUSE ( pathname←filename 2 pathname ) 9
    (get.Ai.structure 1 pathname 7)
    (unify.void 4)
    (unify.variable.Xn 1)
    (unify.void 2)
    (get.Ai.value.Xn 2 1)
    (proceed)
)

(ASSEMBLE.CLAUSE ( pathname←type 2 pathname ) 9
    (get.Ai.structure 1 pathname 7)
    (unify.void 5)
    (unify.variable.Xn 1)
    (unify.void 1)
    (get.Ai.value.Xn 2 1)
    (proceed)
)

(ASSEMBLE.CLAUSE ( pathname←version 2 pathname ) 8
    (get.Ai.structure 1 pathname 6)
    (unify.void 5)
    (unify.variable.Xn 1)
    (get.Ai.value.Xn 2 1)
    (proceed)
)

STOP