Код:
001142: MOV #003000, R5 ; Адрес начала образа дорожки
001146: MOV #000066, R4 ; Счётчик = 54. -- заполнитель от начала дорожки
001152: MOV #000116, (R5)+ ; пишем 4Eh
001156: SOB R4, 001152 ; повторяем
001160: MOV #000014, R4 ; Счётчик = 12.
001164: CLR (R5)+ ; пишем 00h
001166: SOB R4, 001164 ; повторяем
001170: MOV #000366, (R5)+ ; байт F6h -- пишем C2h
001174: MOV #000366, (R5)+ ; байт F6h -- пишем C2h
001200: MOV #000366, (R5)+ ; байт F6h -- пишем C2h
001204: MOV #000366, (R5)+ ; байт F6h -- пишем C2h
001210: MOV #000043, R4 ; Счётчик = 35.
001214: MOV #000116, (R5)+ ; пишем 4Eh
001220: SOB R4, 001214 ; повторяем
001222: MOV #000012, R3 ; Счётчик = 10. сектором
; Цикл подготовки секторов
001226: MOV #000001, R1 ; Номер сектора, начинаем с 1
001232: MOV #000010, R4 ; Счётчик = 8.
001236: CLR (R5)+ ; пишем 00h
001240: SOB R4, 001236 ; повторяем
001242: MOV #000365, (R5)+ ; байт F5h -- пишем A1h
001246: MOV #000365, (R5)+ ; байт F5h -- пишем A1h
001252: MOV #000365, (R5)+ ; байт F5h -- пишем A1h, начало CRC
001256: MOV #000376, (R5)+ ; пишем FEh
001262: MOV #000011, (R5)+ ; пишем 09h
001266: CLR (R5)+ ; пишем 00h
001270: MOV R1, (R5)+ ; пишем 01h -- номер сектора
001272: INC R1 ; Увеличиваем номер сектора
001274: MOV #000002, (R5)+ ; пишем 02h -- 512 байт на сектор
001300: MOV #000367, (R5)+ ; байт F7h -- пишем 2 байта CRC
001304: MOV #000026, R4 ; Счётчик = 22.
001310: MOV #000116, (R5)+ ; байт 4Eh
001314: SOB R4, 001310 ; повторяем
001316: MOV #000014, R4 ; Счётчик = 12.
001322: CLR (R5)+ ; пишем 00h
001324: SOB R4, 001322 ; повторяем
001326: MOV #000365, (R5)+ ; байт F5h -- пишем A1h
001332: MOV #000365, (R5)+ ; байт F5h -- пишем A1h
001336: MOV #000365, (R5)+ ; байт F5h -- пишем A1h, начало CRC
001342: MOV #000373, (R5)+ ; пишем FBh
001346: CMP #000001, 001264 ; 1-я дорожка?
001354: BNE 001406 ; нет => переходим
001356: CMP #000005, R1 ; 5-й сектор?
001362: BNE 001406 ; нет => переходим
001364: MOV #002052, R0 ; Откуда копируем начало сектора
001370: MOV #000032, R4 ; Счётчик = 26.
001374: MOV (R0)+, (R5)+ ; копируем
001376: SOB R4, 001374 ; повторяем
001400: MOV #000363, R4 ; Счётчик = 243.
001404: BR 001412 ; идём дописывать остаток сектора
001406: MOV #000400, R4 ; Счётчик = 256. -- готовим 512. байт данных
001412: MOV #000266, (R5)+ ; пишем B6h
001416: MOV #000155, (R5)+ ; пишем 6Dh
001422: SOB R4, 001412 ; повторяем
001424: MOV #000367, (R5)+ ; байт F7h -- пишем 2 байта CRC
001430: MOV #000054, R4 ; Счётчик = 44.
001434: MOV #000116, (R5)+ ; байт 4Eh
001440: SOB R4, 001434 ; повторяем
001442: DEC R3 ; Уменьшаем счётчик цикла по секторам
001444: BEQ 001452 ; если 0 => выходим из цикла
001446: JMP 001232 ; Продолжаем цикл по секторам
001452: MOV #000540, R4 ; Счётчик = 352. -- заполнение до конца дорожки
001456: MOV #000116, (R5)+ ; байт 4Eh
001462: SOB R4, 001456 ; повторяем
001464: MOV #000010, @#157732
Плюс вот как выглядит 26 слов по адресу 2052 -- опять же каждое слово записывается на дорожку как один байт: