Subversion Repositories pentevo

Rev

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

  1.  
  2. ; LAST UPDATE: 07.01.2022 savelij
  3.  
  4.                 TITLE "raznoe.a80"
  5.  
  6. ; печать текста до нулевого байта
  7. PRINT2ZERO      LD A,(HL)
  8.                 INC HL
  9.                 AND A
  10.                 RET Z
  11.                 RST 0X10
  12.                 JR PRINT2ZERO
  13.  
  14. ; печать буквы виртуального дисковода
  15. ADD_TXT_VERS    LD HL,TEXT4VIRTDRV      ; текст про виртуальный дисковод
  16.                 RST 0X18                ; печать на экране
  17.                 LD H,VIRT_REAL_DRIVE
  18.                 CALL READCMOS           ; чтение номера виртуального диска
  19.                 AND 3                   ; нам нужны только 2 младших бита
  20.                 ADD A,"A"               ; преобразовали в текст
  21.                 RST 0X10                ; напечатали букву
  22.                 RET
  23.