Subversion Repositories pentevo

Rev

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

  1.  
  2. ;LAST UPDATE: 05.09.2017 savelij
  3.  
  4.                 TITLE "raznoe.a80"
  5.  
  6.         IF EMU
  7. CMP_VARSTRDOS   CALL SET_RWPORT0
  8.                 LD HL,(CHANS)
  9.                 RET
  10.  
  11. LOC_2A53_       IF EMU3D2F=1
  12.                 RST30 WOUTCA
  13.                 RET
  14.                 RET
  15.                 ELSE
  16.                 PUSH AF
  17.                 INC C
  18.                 JR Z,LOC2A53
  19.                 ENDIF
  20.                 DEC C
  21.                 POP AF
  22.                 OUT (C),A
  23.                 RET
  24.  
  25. LOC2A53         DEC C
  26.                 POP AF
  27.                 RST30 WOUTCA
  28.                 RET
  29.  
  30. EMU_LDIR        PUSH AF
  31.                 LD A,H
  32.                 CP 0X2A
  33.                 JR NZ,EMU_LDIR2
  34.                 LD A,L
  35.                 CP 0X54
  36.                 JR NC,EMU_LDIR2
  37.                 CP 0X50
  38.                 JR C,EMU_LDIR2
  39.                 ADD HL,BC
  40.                 PUSH HL
  41.                 LD HL,0X3FF0-3
  42.                 CP 0X53
  43.                 JR NZ,EMU_LDIR0
  44.                 LD HL,0X3FF0
  45. EMU_LDIR0       LDIR
  46.                 POP HL
  47.                 POP AF
  48.                 RET
  49.  
  50. EMU_LDIR2       LD A,(NUM_ALT_PAGE)
  51.                 PUSH AF
  52.                 PUSH BC
  53.                 LD A,ROM_BAS48|0X80
  54.                 LD BC,WIN_A0
  55.                 CALL WR_BYTE_RET
  56.                 POP BC
  57.                 LDIR
  58.                 POP AF
  59.                 PUSH BC
  60.                 LD BC,WIN_A0
  61.                 CALL WR_BYTE_RET
  62.                 POP BC
  63.                 POP AF
  64.                 RET
  65.  
  66. EMU_LDIR_RBC    CALL EMU_LDIR
  67.                 POP BC
  68.                 RET
  69.  
  70. EMU_LDIR_RHL    CALL EMU_LDIR
  71.                 POP HL
  72.                 RET
  73.  
  74. PRINT_VIRTDRV   LD H,VIRT_REAL_DRIVE
  75.                 CALL READCMOS           ;ЧТЕНИЕ НОМЕРА ВИРТУАЛЬНОГО ДИСКА
  76.                 AND 3                   ;НАМ НУЖНЫ ТОЛЬКО 2 МЛАДШИХ БИТА
  77.                 ADD A,"A"               ;ПРЕОБРАЗОВАЛИ В ТЕКСТ
  78.                 RST 0X10                ;НАПЕЧАТАЛИ БУКВУ
  79.                 RET
  80.  
  81. CMP_RAMDISK     RST30 _CMP_RAMDISK
  82.                 LD HL,SET_VARS
  83.                 RET
  84.         ENDIF
  85.  
  86. PRINT2ZERO      LD A,(HL)
  87.                 INC HL
  88.                 AND A
  89.                 RET Z
  90.                 RST 0X10
  91.                 JR PRINT2ZERO
  92.  
  93.         IF EMU
  94. ADD_TXT_VERS    LD HL,TEXT4VIRTDRV      ;ТЕКСТ ПРО ВИРТУАЛЬНЫЙ ДИСКОВОД
  95.                 RST 0X18                ;ПЕЧАТЬ НА ЭКРАНЕ
  96.                 LD H,VIRT_REAL_DRIVE
  97.                 CALL READCMOS           ;ЧТЕНИЕ НОМЕРА ВИРТУАЛЬНОГО ДИСКА
  98.                 AND 3                   ;НАМ НУЖНЫ ТОЛЬКО 2 МЛАДШИХ БИТА
  99.                 ADD A,"A"               ;ПРЕОБРАЗОВАЛИ В ТЕКСТ
  100.                 RST 0X10                ;НАПЕЧАТАЛИ БУКВУ
  101.                 RET
  102.         ENDIF
  103.