Перевод кода из fasmg в fasm

; This example upon each reset increases the 8-bit counter stored in EEPROM
; and then presents the bits of this value on the pins of port A.
 
include "avr.inc"
include "..\8051\hex.inc"
 
include "m16def.inc"
 
.org 0
    rjmp    start
 
start:
    ldi r16,RAMEND and $ff
    out spl,r16
    ldi r16,RAMEND shr 8
    out sph,r16
 
    ldi r16,$37
    call    eeprom_read_byte
    mov r17,r16
    inc r17
    ldi r16,$37
    call    eeprom_write_byte
 
    ldi r18,11111111b
    out DDRA,r18
    out PORTA,r17
 
hang:   jmp hang
 
eeprom_read_byte:
; r16 = EEPROM address
; returns: r16 = byte data
    sbic    EECR,EEWE
    jmp eeprom_read_byte
    out EEARL,r16
    sbi EECR,EERE
    in  r16,EEDR
    ret
 
eeprom_write_byte:
; r16 = EEPROM address
; r17 = byte data
    cli
    while_eeprom_busy:
    sbic    EECR,EEWE
    jmp while_eeprom_busy
    out EEARL,r16
    out EEDR,r17
    sbi EECR,EEMWE
    sbi EECR,EEWE
    sei
    ret

format binary as 'hex'
db ':1000000000C00FE50DBF04E00EBF07E308D0102FBE',13,10
db ':10001000139507E30AD02FEF2ABB1BBBFFCFE19953',13,10
db ':10002000FECF0EBBE09A0DB30895F894E199FECF90',13,10
db ':0C0030000EBB1DBBE29AE19A7894089583',13,10
db ':00000001FF',13,10

org 100h
 
  mov ah,0Fh
  int 10h
  mov ah,3
  int 10h
  mov ax,1301h
  mov bl,1Eh
  mov cx,lMsg
  mov bp,Msg
  int 10h
  int 20h
 
Msg db 'Hello world!',13,10
lMsg = $-Msg

include '8086.inc'
org 100h
 
  mov ah,0Fh
  int 10h
  mov ah,3
  int 10h
  mov ax,1301h
  mov bl,1Eh
  mov cx,lMsg
  mov bp,Msg
  int 10h
  int 20h
 
Msg db 'Hello world!',13,10
lMsg = $-Msg