;z80
;assembler
;zx-spectrum


        ORG     25000
        LD      A,2
        CALL    5633
M1      LD      A,22
        RST     16
        XOR     A
        RST     16
        RST     16
        LD      BC,#FBDF
        IN      A,(C)
        LD      C,A
        LD      B,0
        CALL    11563
        CALL    11747
        HALT 
        LD      A,#7F
        IN      A,(#FE)
        RRCA 
        RET     NC
        JR      M1