Решил и я проверить раз такие страсти и как и следовало ожидать все работает как и написано в книге. 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, абсолютно также ( да и как могло быть по другому???).