+" ds
+
+ lac 017777 i
+ sad d8
+ skp
+ sys exit
+ lac 017777
+ tad d5
+ dac .+3
+ law 017
+ sys creat; ..
+ dac fo
+ law 017
+ sys creat; scrname
+ spa; jms error
+ dac fso
+ sys open; scrname; 0
+ spa; jms error
+ dac fsi
+ sys chdir; dd
+ spa; jms error
+ lac d1
+ sys write; pass1; 1
+ law fsobuf
+ dac fsopt
+ dzm nfiles
+ law fbuf
+ dac filp
+ dzm ndirs
+ law dbuf
+ dac dirp
+ dzm fsloc
+ sys open; dotdot; 0
+ spa; jms error
+ dac fd
+ jms readdir; dotdot
+ law statbuf
+ sys status; dotdot; dotdot
+ spa; jms error
+ lac statbuf+12 " i index
+ dac dirp i
+ isz dirp
+ -1
+ tad nfiles
+ cma
+ dac ddfiles
+ law fbuf
+ dac ddfilp
+
+loop:
+ -1
+ tad ndirs
+ cma
+ dac c1
+ law dbuf
+ dac i1
+
+1:
+ isz i1
+ lac i1 i
+ sad ddfilp i
+ jmp 2f
+ isz i1
+ isz c1
+ jmp 1b
+
+ lac ddfilp
+ tad i1
+ dac i1
+ lac i1 i
+ dac .+3
+ lac fsi
+ sys seek; ..; 0
+ lac fsi
+ sys read; scrname; 4
+ law statbuf
+ sys status; dotdot; scrname
+ spa; jms error
+ lac statbuf+0 " flags
+ and o20
+ sna
+ jmp 2f
+ sys open; scrname; 0
+ spa; jms error
+ dac fd
+ jms readdir; scrname
+ lac ddfilp i
+ dac dirp i
+ isz dirp
+
+2:
+ isz ddfilp
+ isz ddfilp
+ isz ddfiles
+ jmp loop
+
+" output phase
+
+ lac fso
+ sys write; fsobuf; 64
+ lac d1
+ sys write; pass2; 2
+ -500
+ dac c1
+
+1:
+ law dbuf+2
+ dac i1
+ dzm fflg
+ law fbuf
+ dac i2
+ r1
+ tad nfiles
+ cma
+ dac c2
+
+2:
+ lac c1
+ tad d501
+ sad i2 i
+ skp
+ jmp 3f
+ -1
+ tad i1
+ dac i3
+ iac i3 i
+ dac c3
+ law fbuf
+ dac i3
+0:
+ lac i3 i
+ sad c3
+ jmp 0f
+ isz i3
+ isz i3
+ jmp 0b
+0:
+ lac i3
+ tad d1
+ dac c3
+ lac c3 i
+ dac .+3
+ lac fsi
+ sys seek; ..; 0
+ lac fsi
+ sys read; scrname; 4
+ lac i2
+ tad d1
+ dac c3
+ lac c3 i
+ dac .+3
+ lac fsi
+ sys seek; ..; 0
+ lac fsi
+ sys read; dd; 4
+ lac fflg
+ sza
+ jmp 0f
+
+ lac nlinkt
+ sad nlinka
+ skp
+ jms fishy
+ dzm nlinka
+ law 012
+ jms putc
+ law statbuf
+ sys status; scrname; dd
+ spa; jms error
+ -1
+ tad statbuf+9
+ cma
+ dac nlinkt
+ -1
+ dac fflg
+ jms longout
+ law 012
+ jms putc
+0:
+ isz nlinka
+ jms putname; scrname
+ jms putname; dd
+ law 012
+ jms putc
+
+3:
+ isz i2
+ isz i2
+ lac i2
+ sad i1 i
+ skp
+ jmp .+3
+ isz i1
+ isz i1
+ isz c2
+ jmp 2b
+
+ isz c1
+ jmp 1b
+ lac nlinkt
+ sad nlinka
+ skp
+ jms fishy
+
+ sys chdir; system
+ jmp done
+
+fishy: 0
+ jms asters
+ jms asters
+ law 012
+ jms putc
+ lac d1
+ sys write; 1f; 1
+ jmp fishy i
+1: 052012
+
+nlinka: 0
+nlinkt: 0
+
+asters: 0
+ -10
+ dac c
+1:
+ law 052
+ jms putc
+ isz c
+ jmp 1b
+ jmp asters i
+
+longout: 0
+ lac statbuf+12 " i
+ jms octal; -3
+ lac statbuf+0 " flags
+ jms octal; -2
+ lac statbuf+8 " uid
+ jms octal; -2
+ -1
+ tad statbuf+9 " nlinks
+ cma
+ jms octal; -2
+ lac statbuf+10
+ jms octal; -5
+ jmp longout i
+
+readdir: 0
+ law 012
+ jms putc
+ law 012
+ jms putc
+ jms asters
+ lac readdir i
+ dac 5f
+ dac .+2
+ jms putname; ..
+ jms asters
+ law 012
+ jms putc
+ law 012
+ jms putc
+ isz readdir
+ isz ndirs
+ lac filp
+ dac dirp i
+ isz dirp
+0:
+ jms copyz; buf; 64
+ lac fd
+ sys read; buf; 64
+ spa; jms error
+ sna
+ jmp 4f
+ -8
+ dac c1
+ law buf
+ dac i1
+1:
+ lac i1 i
+ sna
+ jmp 3f
+
+ isz nfiles
+ dac filp i
+ isz filp
+ lac fsloc
+ dac filp i
+ tad d4
+ dac fsloc
+ isz filp
+ lac i1
+ tad d1
+ dac .+4
+ law statbuf
+ sys status; 5:..; ..
+ spa; jms error
+ jms longout
+ lac i1
+ tad d1
+ dac .+2
+ jms putname; ..
+ law 012
+ jms putc
+ lac i1
+ dac 8
+ lac 8 i
+ dac fsopt i
+ isz fsopt
+ lac 8 i
+ dac fsopt i
+ isz fsopt
+ lac 8 i
+ dac fsopt i
+ isz fsopt
+ lac 8 i
+ dac fsopt i
+ isz fsopt
+ law fsobuf+64
+ sad fsopt
+ skp
+ jmp 3f
+ lac fso
+ sys write; fsobuf; 64
+ law fsobuf
+ dac fsopt
+
+3:
+ law 8
+ tad i1
+ dac i1
+ isz c1
+ jmp 1b
+ jmp 0b
+4:
+ lac fd
+ sys close
+ jmp readdir i
+
+putname: 0
+ -1
+ tad putname i
+ dac 8
+ -4
+ dac c
+1:
+ lac 8 i
+ lrss 9
+ jms putc
+ llss 9
+ jms putc
+ isz c
+ jmp 1b
+ isz putname
+ jmp putname i
+
+octal: 0
+ lmq
+ lac d5
+ tad octal i
+ cma
+ dac c
+1:
+ llss 3
+ isz c
+ jmp 1b
+ lac octal i
+ dac c
+1:
+ ecla llss 3
+ tad o60
+ jms putc
+ isz c
+ jmp 1b
+ law 040
+ jms putc
+ isz octal
+ jmp octal i
+
+error: 0
+ -1
+ tad error
+ hlt
+ sys save
+
+copyz: 0
+ -1
+ tad copyz i
+ dac 8
+ isz copyz
+ -1
+ tad copyz i
+ cma
+ dac 2f
+ isz copyz
+1:
+ dzm 8 i
+ isz 2f
+ jmp 1b
+ jmp copyz i
+2: 0
+
+done:
+ lac noc
+ sna
+ sys exit
+ and d1
+ sna cla
+ jmp 1f
+ jms putc
+ jmp done
+1:
+ lac noc
+ rcr
+ dac 1f
+ lac fo
+ sys write; obuf; 1;..
+ sys exit
+
+putc: 0
+ and o177
+ dac 2f+1
+ lac opt
+ dac 2f
+ add o400000
+ dac opt
+ spa
+ jmp 1f
+ lac 2f i
+ xor 2f+1
+ jmp 3f
+1:
+ lac 2f+1
+ alss 9
+3:
+ dac 2f i
+ isz noc
+ lac noc
+ sad d128
+ skp
+ jmp putc i
+ lac fo
+ sys write; obuf; 64
+ lac iopt
+ dac opt
+ dzm noc
+ jmp putc i
+2: 0;0
+opt: obuf
+iopt: obuf
+noc: 0
+fo: 1
+
+d1: 1
+o177: 0177
+o400000: 0400000
+d128: 128
+d4: 4
+d5: 5
+d8: 8
+o60: 060
+o20: 020
+d501: 501
+
+dd:
+ <dd>; 040040; 040040; 040040
+dotdot:
+ 056056; 040040; 040040; 040040
+system:
+ <sy>;<st>;<em>; 040040
+scrname:
+ <*s>;<rc>;040040;040040
+pass2:
+ <i
+pass1:
+ <i 012
+
+fso: .=.+1
+fsi: .=.+1
+fsloc: .=.+1
+nfiles: .=.+1
+fflg: .=.+1
+buf: .=.+64
+obuf: .=.+64
+fd: .=.+1
+filp: .=.+1
+ddfilp: .=.+1
+ddfiles: .=.+1
+statbuf: .=.+13
+c: .=.+1
+i1: .=.+1
+i2: .=.+1
+i3: .=.+1
+c1: .=.+1
+c2: .=.+1
+c3: .=.+1
+ndirs: .=.+1
+dirp: .=.+1
+fsopt: .=.+1
+fsobuf: .=.+64
+dbuf: .=.+100
+fbuf:
+
\ No newline at end of file
projects / unix-history / blobdiff