I8080 TO Z80 SOURCE TRANSLATOR

[Sergey]

Борясь на работе со стрессом, набросал примитивненький транслятор и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

[Advertiser]