Subversion Repositories ngs

Rev

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

  1.  
  2. ; LAST UPDATE: 26.10.2025 savelij
  3.        
  4.                 include macros.a80
  5.  
  6. ADRWORK         EQU ADR_START
  7. UNPACKER        EQU 0x5B00
  8.  
  9.                 ORG ADRWORK-0x11
  10.         SUM_HOB "testngs C",ADRWORK,EBINFLASHER-START,SIZE_SECTORS
  11.  
  12. START           DI
  13.                 JR START0
  14.  
  15.                 DB "Test NeoGS build "
  16.                 TEXTDATE
  17.                 DB 0
  18.  
  19. START0          LD HL,ADRWORK
  20.                 PUSH HL
  21.                 LD HL,DEPACK
  22.                 LD DE,UNPACKER
  23.                 LD BC,BINFLASHER-DEPACK
  24.                 PUSH DE
  25.                 LDIR
  26.                 LD HL,EBINFLASHER-1
  27.                 LD DE,0xFFFF
  28.                 LD BC,EBINFLASHER-BINFLASHER
  29.                 LDDR
  30.                 LD HL,ADRWORK
  31.                 EX DE,HL
  32.                 INC HL
  33.                 RET
  34.  
  35. DEPACK          include dec40.a80
  36. BINFLASHER      binclude tmp/testngs.pack
  37. EBINFLASHER
  38.  
  39.                 DB LOW (-$) DUP 0
  40.  
  41.                 IF (EBINFLASHER-BINFLASHER)&0xFF
  42. SIZE_SECTORS    EQU ((EBINFLASHER-BINFLASHER)>>8)+1
  43.                 ELSE
  44. SIZE_SECTORS    EQU ((EBINFLASHER-BINFLASHER)>>8)
  45.                 ENDIF
  46.