(defafun read-dt-ram (lbox ldt rbox rdt dt-code)
left
(alu-field extract-bit-right nop a0 a0 (byte 1. 0.)) ;left word
(alu-field field-pass a6 a1 a1 (byte 6. 26.) unboxed br-zero)
(branch right ())
(alu-field field-pass a6 a1 a1 (byte 6. 26.) boxed)
right
(alu-field extract-bit-right nop a2 a2 (byte 1. 0.)) ;right word
(alu-field field-pass a7 a3 a3 (byte 6. 26.) unboxed br-zero)
(branch doit ())
(alu-field field-pass a7 a3 a3 (byte 6. 26.) boxed)
doit
(alu-field field-extract-r a4 a4 a4 (byte 3. 0.))
(alu l+r a4 a4 a4)
(movea a7 read-dt-ram-dispatch)
Comment too long. Click here to view the full text.