?login_element?

Subversion Repositories NedoOS

Rev

Blame | Last modification | View Log | Download

  1.     DEVICE AMSTRADCPC464
  2.  
  3.     ORG $7FFF
  4.     DB '1'      ; mark page 1 at end
  5.     DB '2'      ; mark page 2 at beginning
  6.  
  7.     ORG 0x10000-4
  8. endStart:
  9.     DB '!end'           ; mark end of RAM at $FFFF (to check saving of last byte)
  10. .sz EQU $-endStart
  11.     ASSERT $10000 == endStart + endStart.sz
  12.  
  13.     MMU $4000, 0, $7FFF ; map page 0 to slot 1
  14.     MMU $8000, 3, $7FFF ; map page 3 to slot 2
  15. dataStart:
  16.     DB '0'      ; mark page 0 at end
  17.     DB '3'      ; mark page 3 at beginning
  18. dataLength equ $-dataStart
  19.  
  20.     ; create empty CDT file
  21.     SAVECDT EMPTY "savecdt_headless.cdt"
  22.  
  23.     ; first block: default sync, default format (amstrad), pages 0+3
  24.     SAVECDT HEADLESS "savecdt_headless.cdt",dataStart,dataLength
  25.  
  26.     ; second block: sync $AA, default format, pages 1+2
  27.     MMU $4000 $8000, 1      ; map pages 1,2 to slots 1,2
  28.     SAVECDT HEADLESS "savecdt_headless.cdt",dataStart,dataLength,$AA
  29.  
  30.     ; third block: sync $BB, spectrum format, pages 0+2
  31.     MMU $4000, 0            ; map page 0 to slot 1
  32.     SAVECDT HEADLESS "savecdt_headless.cdt",dataStart,dataLength,$BB,1
  33.  
  34.     ; fourth block: sync $CC, amstrad format, pages 0+3
  35.     MMU $8000, 3            ; map page 3 to slot 2
  36.     SAVECDT HEADLESS "savecdt_headless.cdt",dataStart,dataLength,$CC,0
  37.  
  38.     ; fifth block: sync $DD, amstrad format, end of RAM
  39.     SAVECDT HEADLESS "savecdt_headless.cdt",endStart,endStart.sz,$DD,0
  40.