mirror of
https://github.com/DoctorWkt/unix-jun72.git
synced 2026-01-11 23:53:34 +00:00
12 lines
333 B
Plaintext
12 lines
333 B
Plaintext
/ in buffer
|
|
mov $256.,r3
|
|
1:
|
|
clr (r5)+ / zero data word in buffer
|
|
dec r3
|
|
bgt 1b / branch until all data words in buffer are zero
|
|
jsr r0,dskwr / write zeroed buffer area out onto physical
|
|
/ block specified
|
|
rts r0 / in r1
|
|
|
|
|