Код:
//
// Created by oisee on 10.10.10.
// Copyright 2010 __MyCompanyName__. All rights reserved.
//
;макрос для установки страницы
macro set_page pagenum
ld a,pagenum
ld bc,#7ffd
out (c),a
endm
macro stop
jp $
endm
; устройство - ZXSPECTRUM128
device ZXSPECTRUM128
page 0 ;основной код - в 0 странице
org #6000
initialization
di
;устанавливаем 7-ю страницу
set_page 7
;запускаем отладчик
call debugger
;программа для отладки:
ld hl,#4000
ld de,#4001
ld bc,#17ff
ld a,#ff
ld (hl),a
ldir
ld hl,#5800
ld de,#5801
grid
ld b,12
push bc
ld bc,#20
ld a,#07 | #40
ld (hl),a
ldir
ld bc,#20
ld a,#07 | #00
ld (hl),a
ldir
pop bc
djnz grid
ret
;загружаем отладчик в 7-ю страницу:
page 7
org #d000
debugger
; incbin "sts62e.bin"
; incbin "sts51.bin"
incbin "sts70.bin"
page 0
savesna "sts_test.sna",#6000