?login_element?

Subversion Repositories NedoOS

Rev

Blame | Last modification | View Log | Download

  1. ; this is trivial "does it even do something" check of SAVECPCSNA with a CPC6128 device
  2. ; there's nothing to verify after the test except sjasmplus did not error out
  3.  
  4.     DEVICE AMSTRADCPC6128
  5.     ORG     0x1200
  6. start:
  7.     ld      b,$7F
  8.     ld      c,$8D   ; disable ROMS, set mode 1
  9.     out     (c),c
  10.  
  11.     ld      c,$10   ; PENR = BORDER
  12.     out     (c),c
  13.  
  14.     ld      a,$FF
  15. .borderMess:
  16.     inc     a
  17.     and     $1F
  18.     cp      $1F
  19.     jr      nz,.brd
  20.     ld      a,$00
  21. .brd:
  22.     or      $40
  23.     ld      c,a
  24.     out     (c),a   ; INKR
  25.    
  26. .mmr_paging:
  27.     ; flip slot 3 in and out
  28.     nop
  29.         nop
  30.         ld c,$C1
  31.         out (c),c
  32.         nop
  33.         nop
  34.         ld c,$C0
  35.         out (c),c
  36.     jr      .borderMess
  37.  
  38.     SLOT 3 : PAGE 3
  39.     ORG $C000
  40.     .db $03, $03
  41.  
  42.     SLOT 3 : PAGE 7
  43.     ORG $C000
  44.     .db $07, $07
  45.  
  46.     SAVECPCSNA "cpc6128_savesna.sna", start
  47.