Subversion Repositories ngs

Rev

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

  1.        
  2. ;LAST UPDATE: 05.06.2013 savelij
  3.  
  4.                 include macros.a80
  5.                 include global_vars.a80
  6.  
  7. ADRWORK         EQU 0X6000
  8.  
  9.                 ORG ADRWORK-0X11
  10.                 SUM_HOB "RD_CLS  C",ADRWORK,EBINAR-BINAR,SIZE_SECTORS
  11.  
  12. BINAR           binclude reader_cluster.rom
  13. EBINAR
  14.  
  15.                 DUPL 0X100-LOW ($),0
  16.                 IF (EBINAR-BINAR)&0XFF
  17. SIZE_SECTORS    EQU ((EBINAR-BINAR)>>8)+1
  18.                 ELSE
  19. SIZE_SECTORS    EQU ((EBINAR-BINAR)>>8)
  20.                 ENDIF
  21.  
  22.