Subversion Repositories pentevo

Rev

Rev 548 | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed

  1.  
  2. ;LAST UPDATE: 16.08.2015 savelij
  3.  
  4. ;BASIC BLOCK FOR MONOLOADER
  5.  
  6. BASIC_START     DW 0X100,BASIC_END-STROKA1
  7. STROKA1         DB 0XE7,0XC3,0XA7,0X3A                  ;BORDER NOT PI:
  8.                 DB 0XD9,0XC3,0XA7,0X3A                  ;INK NOT PI:
  9.                 DB 0XDA,0XC3,0XA7,0X3A                  ;PAPER NOT INK:
  10.                 DB 0XFD,0XB0,0X22,"24575",0X22,0X3A     ;CLEAR VAL "ADDRESS":
  11.                 DB 0XF9,0XC0,0XB0,0X22,"23905",0X22     ;RANDOMIZE USR VAL "ADDRESS"
  12.                 DB 0X3A,0XEA
  13.  
  14.                 LD DE,(0X5CF4)
  15.                 LD BC,SIZE_SECTORS*256+5
  16.                 LD HL,ADR_LOADING
  17.                 PUSH HL
  18.                 JP 0X3D13
  19.  
  20. BASIC_END       DB 0X0D,0X80,0XAA
  21.                 DW 1                                    ;НОМЕР СТРОКИ ЗАПУСКА
  22.  
  23. BASIC_FULL      EQU BASIC_END-BASIC_START+1
  24.  
  25.                 DUPL 0X100-BASIC_FULL-4,0               ;ДОПОЛНЕНИЕ ДО СЕКТОРА 256 БАЙТ
  26.        
  27.