mirror of
https://github.com/livingcomputermuseum/pdp7-unix.git
synced 2026-02-18 21:47:53 +00:00
78 lines
777 B
ArmAsm
78 lines
777 B
ArmAsm
" dskio
|
|
|
|
dskrd0: 0
|
|
dzm side
|
|
jms dskio; 02000
|
|
jmp i dskrd0
|
|
|
|
dskwr0: 0
|
|
dzm side
|
|
jms dskio; 03000
|
|
jmp i dskwr0
|
|
|
|
dskrd1: 0
|
|
lmq
|
|
lac o200000
|
|
dac side
|
|
lacq
|
|
jms dskio; 02000
|
|
jmp i dskrd1
|
|
|
|
dskwr1: 0
|
|
lmq
|
|
lac o200000
|
|
dac side
|
|
lacq
|
|
jms dskio; 03000
|
|
jmp i dskwr1
|
|
|
|
|
|
iskio: 0
|
|
cll; idiv; 80
|
|
dac 2f
|
|
lacq
|
|
idiv; 10
|
|
dac 3f
|
|
lls 22
|
|
xor 3f
|
|
als 8
|
|
dac 3f
|
|
lac 2f
|
|
idiv; 10
|
|
dac 2f
|
|
lls 22
|
|
xor 2f
|
|
xor 3f
|
|
xor side
|
|
dac 2f
|
|
-10
|
|
dac 3f
|
|
1:
|
|
dscs
|
|
-640
|
|
dslw
|
|
lac dskbufp
|
|
dslm
|
|
lac 2f
|
|
dsld
|
|
lac dskio i
|
|
dsls
|
|
dssf
|
|
jmp .-1
|
|
dsrs
|
|
sma
|
|
jmp 1f
|
|
isz 3f
|
|
jmp 1b
|
|
hlt
|
|
1:
|
|
isz dskio
|
|
jmp i dskio
|
|
2: 0
|
|
3: 0
|
|
|
|
o200000: 0200000
|
|
dskbufp: dskbuf
|
|
|
|
side: .=.+1
|
|
dskbuf: .=.+640 |