С днём варения ... И маленькое coder'ское поздравление:

Код:
        ORG 33025
START   EQU $
        DI
        LD HL,32768
        LD DE,32769
        LD BC,257
        LD (HL),192
        LDIR
        LD A,195
        LD (49344),A
        LD HL,INT
        LD (49345),HL
        LD A,128
        LD I,A
        IM 2

        LD HL,PIC
        LD DE,22528
        LD C,96
INI1    LD B,8
INI2    XOR A
        RL (HL)
        RLA
        LD (DE),A
        INC DE
        DJNZ INI2
        INC HL
        DEC C
        JR NZ,INI1

        LD HL,FREE
        LD DE,22528
        LD IX,22495
        LD BC,3
        LD SP,$
INI3    LD A,(DE)
        OR A
        JR NZ,INI4
        OR (IX)
        JR NZ,INI4
        LD (HL),50
        INC HL
        LD (HL),E
        INC HL
        LD (HL),D
        INC HL
INI4    INC DE
        INC IX
        DJNZ INI3
        DEC C
        JR NZ,INI3
        LD (HL),201
        INC HL

        LD (PSB_GO+1),HL

        LD DE,22528
        LD BC,3
INI5    LD A,(DE)
        OR A
        JR Z,INI6
INI7    EXX
        INC L
        LD A,R
        XOR L
        AND 7
        CP 6
        EXX
        JR NC,INI7
        ADD A,168
        LD (HL),A
        INC HL
        LD (HL),50
        INC HL
        LD (HL),E
        INC HL
        LD (HL),D
        INC HL
INI6    INC DE

        DJNZ INI5
        DEC C
        JR NZ,INI5

        LD (HL),195
        INC HL
        LD DE,PSB_LO
        LD (HL),E
        INC HL
        LD (HL),D

        EI
PSB_LO  LD A,R
        HALT
        XOR L
        LD L,A
        ADD A,H
        LD H,A
        SUB D
        LD D,A
        ADD A,E
        LD E,A
        XOR B
        LD B,A
        SUB C
        LD C,A
        LD A,R


PSB_GO  JP 0

INT     PUSH AF
        EXX
INTx1   LD A,0
        INC A
        LD (INTx1+1),A
        RRCA
        RRCA
        AND 1
        INC A
        OUT (254),A
        LD L,A
        RLCA
        RLCA
        RLCA
        OR L
        CALL FREE
        EXX
        POP AF
        EI
        RET


FREE    EQU $
PIC     DB   0,  0,  0,  0,  0,  0,  0,  0
        DB   0,238,252,  0,  0, 14, 14,  0
        DB   0,238,238,  0,  0,254,252,  0
        DB   0,238,238,  0,  0,238,238,  0
        DB   0,238,252,  0,  0,  0,  0,  0
        DB   0,  0,  0,  0,127,255,255,252
        DB   0,  0,  0,  0,  0,  0,  0,  0
        DB   0,  0,  0,  0, 15,239,239,192
        DB   0,224,  0,224, 14,238, 14,224
        DB  14,239,239,192, 15,224,238,224
        DB  14,  0,238,224, 14, 15,239,192
        DB   0,  0,  0,  0,  0,  0,  0,  0