Бейсики для Вектора-06Ц и клонов

[b2m]

Извращенцы:

    PUSH H
    LXI D,L0FCC
    CALL L0FBE
    JNZ L0FD6
    CALL L1305
    LXI D,L0FD0
    CALL L0FBE
    MVI A,89h
    JZ L0FB8
    LXI D,L0FD3
    CALL L0FBE
    JNZ L0FD6
L0FB8:
    MVI A,8Dh
    POP B
    JMP L1048
L0FBE:
    LDAX D
    ORA A
    RZ
    MOV C,A
    CALL L1C5A
    CMP C
    RNZ
    INX H
    INX D
    JMP L0FBE
L0FCC:
    DB 'GO ',0
L0FD0:
    DB 'TO',0
L0FD3:
    DB 'UB',0

L0FBE сравнивает строки, только вот L1305 пропускает одну букву. При таком раскладе должно было работать GO ATO, но вместо этого получается GOSUB (JZ L0FB8 явно переходит на пару байт раньше). Победить не смогли, поэтому просто добавили GO TO в таблицу операторов:

OPS_G:
    DB 'OT','O'+80h
    DB 89h
    DB 'O T','O'+80h
    DB 89h
    DB 'OSU','B'+80h
    DB 8Dh
    DB 'E','T'+80h
    DB 0C1h,0

Микрософт

[Advertiser]