Subversion Repositories pentevo

Rev

Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed | ?url?

  1.  
  2. ;LAST UPDATE: 15.09.2014 savelij
  3.  
  4. RST8_CMP        EX (SP),HL              ;HL
  5.                 PUSH AF                 ;AF
  6.                 LD A,(HL)
  7.                 CP _AY_PRN_INIT
  8.                 JR NC,RST8_YES
  9. RST8_NO         POP AF
  10.                 EX (SP),HL
  11.                 LD HL,($5C5D)
  12.                 LD ($5C5F),HL
  13.                 JP L0053
  14.  
  15. RST8_YES        CP _AY_PRN_INIT+0X30
  16.                 JR NC,RST8_NO
  17.                 PUSH BC                 ;BC
  18.                 LD A,R
  19.                 JP PE,RST8YES1
  20.                 LD A,R
  21. RST8YES1        DI
  22.                 PUSH AF                 ;RF
  23.                 PUSH HL                 ;ADR_RET
  24.                 PUSH DE                 ;RAMNROM+DOS7FFD
  25.                 LD BC,RD_1WINA0
  26.                 IN H,(C)
  27.                 IN A,(PEVO_CONF)
  28.                 LD L,A
  29.                 OR 1
  30.                 OUT (PEVO_CONF),A
  31.                 LD B,HIGH (RD_DOS7FFD)
  32.                 IN E,(C)
  33.                 DEC B
  34.                 IN D,(C)
  35.                 LD BC,WIN_A0
  36.                 LD A,3
  37.                 OUT (C),A
  38.                 LD B,HIGH (WIN_P0)
  39.                 XOR A
  40.                 JP ADR_SEL_ROM
  41.  
  42.                 DUPL ADR_RST8END-$,0
  43. RST8_END        LD A,L
  44.                 OUT (PEVO_CONF),A
  45.                 POP DE
  46.                 POP HL
  47.                 POP AF
  48.                 JP PO,RST8END1
  49.                 EI
  50. RST8END1        POP BC
  51.                 POP AF
  52.                 EX (SP),HL
  53.                 RET
  54.