Subversion Repositories pentevo

Rev

Rev 683 | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed | ?url?

  1.  
  2. ;LAST UPDATE: 21.07.2018 savelij
  3.  
  4. ;BASIC BLOCK FOR MONOLOADER
  5.  
  6. BASIC_START     DW 0X100,BASIC_END-STROKA1
  7. STROKA1         DB __BORDER,__NOT,__PI,":"
  8.                 DB __INK,__NOT,__PI,":"
  9.                 DB __PAPER,__NOT,__PI,":"
  10.                 DB __CLEAR,__VAL,"\"24575\":"
  11.                 DB __RANDOMIZE,__USR,__VAL,"\"23905\":",__REM
  12.  
  13.                 LD DE,(0X5CF4)
  14.                 LD BC,SIZE_SECTORS*256+5
  15.                 LD HL,ADR_LOADING
  16.                 PUSH HL
  17.                 JP 0X3D13
  18.  
  19. BASIC_END       DB 0X0D,0X80,0XAA
  20.                 DW 1                                    ;НОМЕР СТРОКИ ЗАПУСКА
  21.  
  22. BASIC_FULL      EQU BASIC_END-BASIC_START+1
  23.  
  24.                 DUPL 0X100-BASIC_FULL-4,0               ;ДОПОЛНЕНИЕ ДО СЕКТОРА 256 БАЙТ
  25.