Оберон-клуб «ВЄДАsoft»

void Basic_Init (void)
{
  __asm
  DI
  LD   IY,#0x5C3A
  RES  4,1(IY) /* RESET OF 128K FLAG */
  __endasm;
} //Basic_Init

void Basic__init(void)
{
__asm
; ************************************************
; * Set IM2 mode (need for correct work with IY) *
; ************************************************
    LD   HL,#IM2PROC$
IMON$:
    LD   A,#24       ; код команды JR
    LD   (#65535),A
    LD   A,#195      ; код команды JP
    LD   (#65524),A
    LD   (#65525),HL ; в HL - адрес обработчика прерываний
    LD   HL,#0xFE00  ; построение таблицы для векторов прерываний
    LD   DE,#0xFE01
    LD   BC,#256     ; размер таблицы минус 1
    LD   (HL),#0xFF  ; адрес перехода #FFFF (65535)
    LD   A,H         ; запоминаем старший байт адреса таблицы
    LDIR             ; заполняем таблицу
    DI               ; запрещаем прерывания на время
                     ; установки второго режима
    LD    I,A        ; задаем в регистре I старший байт адреса
                     ; таблицы для векторов прерываний
    IM    2          ; назначаем второй режим прерываний
    EI               ; разрешаем прерывания
    RET
 
IM2PROC$:
    PUSH AF
    PUSH HL
    LD   HL,(#0x5C78) ;
    INC  HL           ; INC(FRAMES_CNTR)
    LD   (#0x5C78),HL ;
    POP  HL
    POP  AF
    EI
__endasm;
} //Basic__init

(* This program works when used #define MODE_IM2 in Obj/BasicCfg.h *)
MODULE IM2;
IMPORT B := Basic;
CONST
  LAST_K = 5C08H; FRAMES_CNTR = 5C78H;
BEGIN (*$MAIN*)
  B.Init;
  B.POKE(LAST_K, 0); B.AT(0, 0); B.PRSTR("Press SPACE to exit");
  REPEAT
    B.AT(4, 4); B.PRINT(B.PEEK(LAST_K)); B.PRSTR("   ");
    B.AT(8, 8); B.PRINT(B.PEEK(FRAMES_CNTR)); B.PRSTR("   ");
  UNTIL B.PEEK(LAST_K) = 20H;
  B.Quit;
END IM2.

 
(* This program works when used #define MODE_IM2 in Obj/BasicCfg.h *)
MODULE IM2;
IMPORT B := Basic;
CONST
  LASTK = 5C08H; FRAMESCNTR = 5C78H;
BEGIN (*$MAIN*)
  B.Init;
  B.POKE(LASTK, 0); B.AT(0, 0); B.PRSTR("Press SPACE to exit");
  REPEAT
    B.AT(4, 4); B.PRINT(B.PEEK(LASTK)); B.PRSTR("   ");
    B.AT(8, 8); B.PRINT(B.PEEK(FRAMESCNTR)); B.PRSTR("   ");
  UNTIL B.PEEK(LASTK) = 20H;
  B.Quit;
END IM2.

@SET Mod=IM2
@SET Bin=..\Bin
@SET Lib=..\Lib
@SET CodeAddr=26000
@SET DataAddr=60000
 
%Bin%\sdcc %Mod%.c -mz80 --code-loc %CodeAddr% --data-loc %DataAddr% --no-std-crt0 --opt-code-size --funsigned-char --disable-warning 126 -I "." -I %Lib% -L %Lib%/z80 Basic.lib XDev.lib
@IF errorlevel 1 PAUSE
 
@REM Convert Intel hex format to binary
@REM ==================================
%Bin%\hex2bin %Mod%.ihx
%Bin%\bin2data.exe -rem -org %CodeAddr% %Mod%.bin ..\%Mod%.tap %Mod%
@START ..\%Mod%.tap