Star Tip 11

СОВЕТ ЗВЕЗДА 11

Эндрю Уиттакер

Huraayyhhh! Еще один Star Совет для вас пускать слюни месяц.

Количество одиннадцать слишком. Интересно, если мы войдем в двадцатых до конца в год. Кто знает? Я, конечно, этого не делают. Это звезда Совет является Эндрю Уиттакер и это простой, но важно рутина печати.

Эндрю

До Рождества, Андрей не был членом высококвалифицированных и плодовитый программирования команда Graftgold на Firebird. Он помог в кодирование таких плодовых тортов как Летающая акула и магнетрона. Он в настоящее время работает внештатным (я люблю это слово), на аркадных названий. Благодаря миллиарды Эндрю и держать их, всякий раз, когда вы чувствуете желание.

Метод

Это первый листинг исходного кода мы имели в течение yonks, в основном потому что его не-документально те, которые я получаю все время. Для его использования Вы должны использовать ассемблер (любой один сделаю), а затем сохранить источник прочь к ленте.

Печать

Процедура характер печати в ПЗУ (сначала 10), как известно, медленно, так что эта программа заменяет эту улитку программы, за счет обработка ошибок и обработка управляющий код. Чтобы напечатать символ, необходимо загрузить аккумулятор с ASCII-код символа и затем вызвать процедуру печати.

LD, “В”

ВЫЗОВ PRINT

Это будет печатать “B” на экране. Чтобы указать на печать координат,

Вы должны использовать код 22, а затем подряд и значения столбца. Таким образом, чтобы печатать букву “B” на экране со-ords 7,10 использования:

LD, 22

ВЫЗОВ PRINT LD, 7 ВЫЗОВ PRINT LD, 10 ВЫЗОВ PRINT LD, “В” ВЫЗОВ PRINT

В качестве альтернативы прямой адрес экран может передаваться в подпрограмму с помощью:

LD HL, экран адр

LD (XYPOS), HL

Там также подпрограмма печати строка, которая выводит строку, указанную

путем HL, и с байтом 255 в качестве конечного маркера:

LD HL, СООБЩЕНИЕ

ВЫЗОВ STRPRNT RET СООБЩЕНИЕ DEFM 22,11,6, “Your Sinclair”, 255

Это эквивалент для печати в 11,6; “Your Sinclair” в Basic. [Я измененная STRPRNT для сохранения и восстановления HL ‘, чтобы избежать аварии на возвращение на BASIC. JimG] Так что у вас есть.

Источник Листинг

• 0000 00000; Звезда Совет 11 0000 00000; текста Печать Хэндлер 0000 00000; Эндрю Уиттакер 0000 00000; от Your Sinclair, Aug’88 0000 00000; 0000 00000; Использование OCP Editor / Assembler 0000 00000; 0000 00000; !! ВНИМАНИЕ !!
• 0000 00000; рутинные PRINT развращает HL ‘ 0000 00000; и так вызывает крушение на возвращение 0000 00000; в BASIC. Все помощью PRINT 0000 00000; необходимо, чтобы сохранить HL ‘и восстановить 0000 00000; она, прежде чем вернуться в базовый.
• 0000 00000; [JimG] 0000 00000; 0000 00000; вход: код символа в А 0000 00000; выход: CHR для экрана 0000 00000; печать поз расширенный 0000 00000; альтернативный регистры поврежден 0000 00000 орг 65000 FDE8 D9 00000 PRINT ехх FDE9 6F 00000 LD л, FDEA 00000; FDEA 00000; тест на х-у обновления FDEA 00000; FDEA 3A47FE 00000 LD, (PFLAG) FDED A7 00000 и FDEE 2034 00000 JR NZ, CONTRL FDF0 7D 00000 LD, л FDF1 00000; FDF1 00000; тест для CHR $ 22 FDF1 00000; FDF1 FE16 00000 ф 22 FDF3 2828 00000 младший г, GETXY FDF5 00000; FDF5 00000; найти сЬаг определение FDF5 00000; FDF5 2600 00000 LD ч, 0 FDF7 29 00000 ADD HL, HL FDF8 29 00000 ADD HL, HL FDF9 29 00000 ADD HL, HL FDFA ED5B48FE 00000 LD DE, (FONT) FDFE 19 00000 ADD HL, де FDFF ED5B4AFE 00000 LD DE, (XYPOS) FE03 00000; FE03 00000; напечатать символ FE03 00000; FE03 0608 00000 LD B, 8 FE05 7E 00000 PRLOOP LD, (гл) FE06 12 00000 LD (де), FE07 14 00000 вкл d FE08 23 00000 INC HL FE09 10FA 00000 DJNZ PRLOOP FE0B 00000; FE0B 00000; увеличиваем позицию печати FE0B 00000;
  

  FE0B	15	00000	декабре d
  FE0C	7A	00000	LD, d
  FE0D	0F	00000	RRCA
  FE0E	0F	00000	RRCA
  FE0F	0F	00000	RRCA
  FE10	57	00000	LD d,
  FE11	13	00000	вкл де
  FE12	7A	00000	LD, d
  FE13	87	00000	добавить
  FE14	87	00000	добавить
  FE15	87	00000	добавить
  FE16	57	00000	LD d,

  FE17 ED534AFE 00000 LD (XYPOS), де FE1B 00000; FE1B 00000; выйти из призывающую рутины FE1B 00000; FE1B D9 00000 ехх FE1C C9 00000 в отставке FE1D 00000; FE1D 00000; сигнальные Следующие два байта FE1D 00000; х-у координаты FE1D 00000; FE1D 3E02 00000 GETXY LD, 2 FE1F 3247FE 00000 LD (PFLAG), FE22 D9 00000 ехх FE23 C9 00000 в отставке FE24 00000; FE24 00000; обновление строки и столбца (х + у) FE24 00000; FE24 3D 00000 CONTRL декабря FE25 3247FE 00000 LD (PFLAG), FE28 2812 00000 младший г, COL FE2A 00000; FE2A 00000; установить новое значение строки FE2A 00000; FE2A 7D 00000 GetRow LD A, L Fe2B E618 00000 и 0011000b FE2D F640 00000 или 1000000b FE2F 67 00000 LD ч, FE30 7D 00000 LD, л FE31 E607 00000 и 0000111b FE33 0F 00000 RRCA FE34 0F 00000 RRCA FE35 0F 00000 RRCA FE36 6F 00000 LD л, FE37 224AFE 00000 LD (XYPOS), гл FE3A D9 00000 ехх Fe3B C9 00000 в отставке Fe3C 00000; Fe3C 00000; получить новое значение столбца Fe3C 00000; Fe3C 3A4AFE 00000 COL LD, (XYPOS) FE3F E6E0 00000 и 11100000b FE41 B5 00000 или л FE42 324AFE 00000 LD (XYPOS), FE45 D9 00000 ехх FE46 C9 00000 в отставке FE47 00000; FE47 00000; переменные FE47 00000; FE47 00 00000 PFLAG DEFB 0 FE48 003C 00000 FONT DEFW 3c00h FE4A 0040 00000 XYPOS DEFW 16384 FE4C 00000; FE4C 00000; вывести строку FE4C 00000; вход: – адр строки в HL FE4C 00000; заканчиваться FF байт FE4C 00000; выход: – строка печатается на экране FE4C 00000; принимает ху поз через CHR $ 22, X, Y FE4C 00000; развращает HL-A, дополнительный набор FE4C 00000; FE4C 2161FE 00000 MESPRT LD HL, MESSGE FE4F D9 00000 STRPRT ехх FE50 E5 00000 PUSH HL FE51 D9 00000 ехх FE52 7E 00000 STRPR2 LD, (гл) FE53 FEFF 00000 ф 255 FE55 2806 00000 младший г, STRPR3 Ре57 CDE8FD 00000 вызова PRINT FE5A 23 00000 INC HL FE5B 18F5 00000 младший STRPR2 FE5D D9 00000 STRPR3 ехх FE5E E1 00000 POP HL FE5F D9 00000 ехх FE60 C9 00000 в отставке FE61 00000; FE61 160B06 00000 MESSGE DEFB 22,11,6 FE64 596F7572 00000 DEFM “Your Sinclair» FE68 2053696E FE6C 636C6169 FE70 72

FE71 FF 00000 DEFB 255