Решил и я проверить раз такие страсти и как и следовало ожидать все работает как и написано в книге. TR-DOS 5.04TM была в анриле по дефолту. Код:
Код:
       device zxspectrum128

        org #5d3b
start   dw #100                         ; line number = 1
        dw lend-lbegin                  ; line length
lbegin  db #fd,#30                      ; 'clear' 0
        db #0e,#00,#00,#ff,#5f,#00      ;   value=#5fff
        db #3a,#f9,#c0,#30              ; ':' 'rand' 'usr' 0
        db #0e,#00,#00:dw code:db #00   ;   start address
        db #3a,#ea                      ; ':' 'rem'

code    ; insert your code here
        ; res 4,(iy+1)                ; fix usr0 issue
        ; ld hl,#c9f1,(#5cc2),hl      ; don't break while loading
        display code
        ld hl,name
        ld c,#13
        call #3d13
        xor a
        ld (#5cf9),a
        ld a,3
        ld hl,#4000
        ld c,#0e
        call #3d13
        di
        halt
name
	db "scr     C"
        db #0d                          ; enter (end of basic line)
lend
    
        emptytrd "mydisk.trd"
        savetrd  "mydisk.trd","boot.B",start,lend-start
        org #6000
scr
	ds #1800,#55
	ds #300,#07
scrl	equ $-scr
        savetrd "mydisk.trd","scr.C",scr,scrl
Видим ожидаемую картинку с полосками. Проверил на 5.03, абсолютно также ( да и как могло быть по другому???).