Вставка AY музыки в программу

[Vitamin]

Компиляция из кусков:

    CALL 49152
    CALL SETIM2
LOOP:
    LD A,191
    IN A,(254)
    RRA
    JR NC,EXIT
    HALT
    JR LOOP
EXIT:
    JP SETIM1

SETIM2  LD HL,INTTAB
        LD DE,INTTAB+1
        LD (HL),PLAYER
        LD BC,256
        LDIR 
        DI 
        LD A,'INTTAB
        LD I,A
        IM 2
        EI 
        RET 

SETIM1  DI 
        LD A,63
        LD I,A
        IM 1
        EI 
        RET

        ORG '$*257
PLAYER  PUSH AF,BC,DE,HL
        EXX 
        EX AF,AF'
        PUSH AF,BC,DE,HL
        PUSH IX,IY
        CALL MUSIC+5 ;MUSIC+6 for old players
        POP IY,IX
        POP HL,DE,BC,AF
        EXX 
        EX AF,AF'
        POP HL,DE,BC,AF
        EI 
        RET 

INTTAB  EQU #B000 ;257 bytes at #xx00

MUSIC INCBIN "music.C"

[Advertiser]