Борясь на работе со стрессом, набросал примитивненький транслятор иcходного текста на ассемблере Intel 8080 в текст для Z80.
Прошу прощения, но на REXX.
Сохранение исходного форматирования не обеспечивается.
Исходный текст:
Код:
spcash: push psw
call spcs2
pop psw
ret
spcs2: lhld svv1 ;if INFO1 is the constant:
shld sr0 ;<constant value> into sr0
call cmh
shld sr2 ;-<constant value> into sr2
dcx h
shld sr4 ;-<constant value + 1> into sr4
Текст после трансляции:
Код:
spcash: push af
call spcs2
pop af
ret
spcs2: ld hl,(svv1) ;if INFO1 is the constant:
ld (sr0),hl ;<constant value> into sr0
call cmh
ld (sr2),hl ;-<constant value> into sr2
dec hl
ld (sr4),hl ;-<constant value + 1> into sr4