Subversion Repositories pentevo

Rev

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

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