Add original unix v6
This commit is contained in:
@@ -0,0 +1,17 @@
|
||||
/ rk05 disk driver
|
||||
|
||||
rkda = 177412
|
||||
mov dska,r1
|
||||
clr r0
|
||||
div $12.,r0
|
||||
ash $4.,r0
|
||||
bis r1,r0
|
||||
mov $rkda,r1
|
||||
mov r0,(r1)
|
||||
mov ba,-(r1)
|
||||
mov wc,-(r1)
|
||||
mov $iocom,-(r1)
|
||||
1:
|
||||
tstb (r1)
|
||||
bpl 1b
|
||||
rts pc
|
||||
Reference in New Issue
Block a user