(c) Лазутов М., 1996,
г.Тучково, М.О.
Данная программа модерниза-
ции шрифта была "вытащена" из
загрузчика к игре "DAM Busters"
140.
ORG 40000
LD DE,41000
LD HL,15616
PUSH DE
LD BC,768
LDIR
POP HL
PUSH HL
LD B,96
M2 PUSH BC
LD B,4
INC HL
INC HL
INC HL
INC HL
M1 LD A,(HL)
LD C,A
SLA A ; можно заменить
; на SRA A
OR C
LD (HL),A
INC HL
DJNZ M1
POP BC
DJNZ M2
POP HL
DEC H
LD (23606),HL
RET
2
Предлагаю также простейшую
программу, которая "кодирует"
блок кодов, а при повторном вы-
зове - декодирует.
140.
LD HL,START ; Начальный
;адрес кодируемого блока.
LD BC,LEN ; Длина
;кодируемого блока.
M1 LD A,(HL)
CPL
LD (HL),A
INC HL
DEC BC
LD A,B
OR C
JR NZ,M1
RET
А эта программа создает эффект
с атрибутами:
ORG 40000
ENT $
CALL 3435
M0 LD HL,22528
LD DE,768
M1 LD A,(23560)
CP 32
RET Z
LD A,(HL)
OUT (254),A
INC A
RRC A
RRC A
XOR L
LD (HL),A
INC HL
DEC DE
LD A,D
OR E
JR NZ,M1
JR M02
; ATTR EFFECT
; BY MAXSOFT
; (C) 1996
********************************
