Код:
tr_dos_var_current_track_sector = $5CF4
emptytrd "disc.trd","TITLE"
org $00FC
boot_start
incbin "boot\small_mx.bin"
boot_end
savetrd "disc.trd","boot.B",$FC,$FC
org $0000
basic_start
defb $00,00 ;
defw end_basic_line_0 - basic_line_0
basic_line_0
defb $EA ;REM
di
xor a
out (border),a
ld sp,$C000
; ld hl,$C9F1 ;pop af : ret !!!!!!!!!!!!!!
; ld ($5CC2),hl ;
ld a,aaa_page_4_port
ld bc,$7FFD
out (c),a
ld bc,$2005 ;$20 sect 05 mode
ld de,(tr_dos_var_current_track_sector)
ld hl,$C000
di
im 1
call $3D13
di
ld a,bbb_page_4_port
ld bc,$7FFD
out (c),a
ld bc,$1005 ;$10 sect 05 mode
ld de,(tr_dos_var_current_track_sector)
ld hl,xxx
di
im 1
call $3D13
di
ld a,ccc_page_4_port
ld bc,$7FFD
out (c),a
ld bc,$4005 ;$40 sect 05 mode
ld de,(tr_dos_var_current_track_sector)
ld hl,$C000
di
im 1
call $3D13
di
ld a,ddd_page_4_port
ld bc,$7FFD
out (c),a
ld bc,$2505 ;$25 sect 05 mode
ld de,(tr_dos_var_current_track_sector)
ld hl,$DB00
di
im 1
call $3D13
di
jp start
defb $0D
end_basic_line_0
defb $00,10
defw end_basic_line_10 - basic_line_10
basic_line_10
defb $FD,$B0 ;CLEAR VAL
defb $22,"24575",$22
defb $3A ; :
defb $F9,$C0 ;RANDOMIZE USR
defb $28 ;(
defb "5" ;5
defb $0E,$00,$00,$05,$00,$00
defb $2B ;+
defb "256" ;256
defb $0E,$00,$00,$00,$01,$00
defb $2A ;*
defb $BE,$B0 ;PEEK VAL
defb $22,"23636",$22 ;"23636"
defb $2B ;+
defb $BE,$B0 ;PEEK VAL
defb $22,"23635",$22 ;"23635"
defb $29 ;)
defb $0D
end_basic_line_10
defb $80 ;autorun
defb $AA,10,0
basic_end
savetrd "disc.trd","vjdfvn.B",$0,basic_end-basic_start
slot 3
page aaa
savetrd "disc.trd","vjdfvn_1.C",$C000,$2000
slot 3
page bbb
savetrd "disc.trd","vjdfvn_2.C",$D000,$1000
slot 3
page ccc
savetrd "disc.trd","vjdfvn_3.C",$C000,$4000
slot 3
page ddd
savetrd "disc.trd","vjdfvn_4.C",$DB00,$2500