22 lines
249 B
ArmAsm
22 lines
249 B
ArmAsm
/ rp03 disk driver
|
|
|
|
rpda = 176724
|
|
mov dska,r1
|
|
clr r0
|
|
div $10.,r0
|
|
mov r1,-(sp)
|
|
mov r0,r1
|
|
clr r0
|
|
div $20.,r0
|
|
bisb r1,1(sp)
|
|
mov $rpda,r1
|
|
mov (sp)+,(r1)
|
|
mov r0,-(r1)
|
|
mov ba,-(r1)
|
|
mov wc,-(r1)
|
|
mov $iocom,-(r1)
|
|
1:
|
|
tstb (r1)
|
|
bpl 1b
|
|
rts pc
|