User Tag List

Показано с 1 по 10 из 201

Тема: Преодоление барьера машинного кода. Hello world на zx spectrum , и всё такое прочее

Комбинированный просмотр

Предыдущее сообщение Предыдущее сообщение   Следующее сообщение Следующее сообщение
  1. #1

    Регистрация
    19.01.2017
    Адрес
    г. Арзамас
    Сообщений
    2,453
    Записей в дневнике
    42
    Спасибо Благодарностей отдано 
    8
    Спасибо Благодарностей получено 
    169
    Поблагодарили
    120 сообщений
    Mentioned
    7 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Цитата Сообщение от Bedazzle Посмотреть сообщение
    22 байта через водку /зачёркнуто/ ром /зачёркнуто/
    через rst 16
    ну пости здесь, разрушим барьеры что-ли.

    - - - Добавлено - - -

    Код:
    	device zxspectrum128
            ORG #6000
    begin
    
    	ld de,$4000
    lp1:
    	ld a,e
    	and 31
    	
    	ld l,a
    	add hl,hl
    	add hl,hl
    	ld h,$1E
    	add hl,hl
    	inc h
    	push de
    	ld b,8
    lp2:
    	ld a,(hl)
    	ld (de),a
    	inc hl
    	inc d
    	djnz lp2
    	pop de
    	inc e
    	jr nz,lp1
    	ld a,d
    	add a,8
    	ld d,a
    	cp $58
    	jr nz,lp1
    	jr $
    end
    	display /d,end-begin
    	savesna "!void.sna",begin
    34 байта без jr $

  2. #1
    С любовью к вам, Yandex.Direct
    Размещение рекламы на форуме способствует его дальнейшему развитию

  3. #2

    Регистрация
    02.05.2015
    Адрес
    г. Таллин, Эстония
    Сообщений
    1,691
    Спасибо Благодарностей отдано 
    302
    Спасибо Благодарностей получено 
    223
    Поблагодарили
    159 сообщений
    Mentioned
    11 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Цитата Сообщение от Шынни Посмотреть сообщение
    ну пости здесь, разрушим барьеры что-ли.
    Код:
    	DEVICE ZXSPECTRUM48
    
    	org 25000
    QUIZZSTART:
    	ld a, 22	; AT
    	rst 16
    	xor a		; xcoord
    	rst 16
    	xor a		; ycoord
    	rst 16
    
    	ld c, 22
    loop1:
    	ld b, 32
    loop2:
    	ld a, ' '+32
    	sub b
    	rst 16
    	djnz loop2
    
    	dec c
    	db 32, -11	; ;jr nz loop1
    	
    stop:
    	jr stop
    	
    	;ret
    	
    QUIZZEND:	
    	
    	
    	SAVEBIN "quizz.bin", QUIZZSTART, QUIZZEND - QUIZZSTART
    Почему-то ужасм не компилит jr nz loop1 у меня, просто скипает эту команду, если смотреть дизасм :/ причём в другом проекте нормально компилится.
    Поэтому поставил затычку через db.

  4. #3

    Регистрация
    07.10.2006
    Сообщений
    1,730
    Спасибо Благодарностей отдано 
    257
    Спасибо Благодарностей получено 
    275
    Поблагодарили
    167 сообщений
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    По умолчанию

    Цитата Сообщение от Bedazzle Посмотреть сообщение
    Почему-то ужасм не компилит jr nz loop1 у меня, просто скипает эту команду, если смотреть дизасм :/ причём в другом проекте нормально компилится.
    Поэтому поставил затычку через db.
    Может, запятая пропущена между nz и loop1?

Информация о теме

Пользователи, просматривающие эту тему

Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)

Похожие темы

  1. Нет доступа к ftp World of Spectrum
    от ProSoft в разделе Разный софт
    Ответов: 2
    Последнее: 13.03.2012, 00:14
  2. [Укр, Харьков] Продам ZX Spectrum и прочее
    от garlands в разделе Барахолка (архив)
    Ответов: 27
    Последнее: 09.12.2010, 08:30
  3. Enlight и все такое
    от tipa в разделе События
    Ответов: 4
    Последнее: 04.02.2009, 18:38

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •