Subversion Repositories pentevo

Rev

Blame | Last modification | View Log | Download | RSS feed | ?url?

  1.  
  2. ;LAST UPDATE: 09.12.2013 savelij
  3.  
  4. ;       DISPLAY "FREE BEFORE 0X3C30=",0X3C30-$
  5. ;               DUPL 0X3C30-$,0XFF;        DS   0X3C30-$,0XFF
  6.        ;тут в 5.04 стоит IN A,(0X1F):RET
  7.        ;в 5.03 пусто
  8.         IN      A,(0X1F)
  9.         RET    
  10.                 IF atm=3;       IFN     atm
  11. JUMP_RES
  12.         LD      BC,0XFFF7
  13.         OUT     (C),D
  14.         LD      BC,0X7FFD
  15.         OUT     (C),E
  16.         JP      (HL)
  17. RETURN_COM_END
  18.         PUSH    BC
  19.         PUSH AF
  20.         LD      A,R
  21.         JP      PO,$+6
  22.         NOP    
  23.         JR      $+4
  24.         LD      A,R
  25.         DI     
  26.         LD      BC,0XFFF7
  27.         OUT     (C),D
  28.         LD      BC,0X7FFD
  29.         OUT     (C),E
  30.         JP      0XDB0E ;после точки входа для аласма
  31. RES_WL
  32.         LD      BC,0XFFF7
  33.         OUT     (C),H
  34.         LD      BC,0X7FFD
  35.         OUT     (C),L
  36.         EXX    
  37. RWL_CKL
  38.         LD      A,(HL)
  39.         SUB     2
  40.       ;LD E,A ;for nextpage
  41.         JR      C,RWL_END;!!!
  42.         AND     0X3F
  43.         LD      E,A
  44.         INC     HL
  45.         LD      A,C
  46.         CP      (HL)
  47.         INC     HL
  48.         LD      A,(HL)
  49.         ADD     HL,DE
  50.         JR      NZ,RWL_CKL
  51.         CP      B
  52.         JR      NZ,RWL_CKL
  53. RWL_END EXX    
  54.         OUT     (C),E
  55.         LD      BC,0XFFF7
  56.         OUT     (C),D
  57.         RET    
  58.        ENDIF   
  59.  
  60.                 IF resident=1;       IFN        resident
  61.        ;ORG 0X3C48
  62. ;NORESC000
  63.        ;JP PPNORESC000;0X379A
  64. ;A7JP9
  65.        ;LD A,0X07
  66.        ;JP 0X0009
  67. NACALO
  68. ;проверка резидентов (3 разных)
  69. ;jp из 4
  70. ;вместо a,7:jr 9
  71.         LD      SP,0X5BFF
  72.     ;проверка недокументированного резидента 0XC000
  73.         LD      A,0XC7;1F
  74.         CALL    MEMDRV_
  75.         LD      HL,0XC000
  76.         LD      A,(HL)
  77.         CP      0XC3
  78. NORESC000
  79.         JP      NZ,PPNORESC000
  80.         XOR     A
  81. LL3c61  ADD     A,(HL)
  82.         ADC     A,0
  83.         INC     HL
  84.         BIT     7,H
  85.         JR      NZ,LL3c61
  86.         DEC     A
  87.         JR      NZ,NORESC000
  88.         LD      A,0XAA
  89.         DEC     HL
  90.         CP      (HL)
  91.         JR      NZ,NORESC000
  92.         CPL    
  93.         DEC     HL
  94.         CP      (HL)
  95.         JR      NZ,NORESC000
  96.         LD      HL,0XD000
  97.         LD      DE,0X5B00
  98.         LD      BC,0X2500
  99.         LDIR   
  100.         LD      SP,0X5F00
  101.         LD      A,0XC6;1E
  102.        ;CALL MEMDRV
  103.         CALL    LDIfrC0
  104.         LD      A,0X03
  105.        ;CALL MEMDRV
  106.         CALL    LDItoC0
  107.         LD      A,0XC5;1D
  108.        ;CALL MEMDRV
  109.         CALL    LDIfrC0
  110.         LD      A,0X01
  111.        ;CALL MEMDRV
  112.         CALL    LDItoC0
  113.         LD      A,0XC4;1C
  114.        ;CALL MEMDRV
  115.         CALL    LDIfrC0
  116.         XOR     A
  117.        ;CALL MEMDRV
  118.         CALL    LDItoC0
  119.         LD      A,0XC3;1B
  120.        ;CALL MEMDRV
  121.         CALL    LDIfrC0
  122.         XOR     A
  123.         CALL    MEMDRV_
  124.         LD      SP,(0X5B73)
  125.         RET    
  126. LDItoC0
  127.        CALL     MEMDRV_
  128.        ;LD A,0XFF
  129.        ;OR A
  130.        SCF     
  131.         JR      LDIR40
  132. LDIfrC0
  133.        CALL     MEMDRV_
  134.         XOR     A
  135. LDIR40  LD      HL,0XC000
  136.         LD      DE,0X8000
  137.         LD      BC,0X4000
  138.         JR      NC,$+3
  139.                 EX DE,HL;        EXD   
  140.         LDIR   
  141.         RET    
  142.        ENDIF    ;resident
  143.  
  144. ;       DISPLAY "FREE BEFORE 0X3CFA=",0X3CFA-$
  145. ;               DUPL 0X3CFA-$,0XFF;        DS   0X3CFA-$,0XFF
  146.  
  147.