?login_element?

Subversion Repositories NedoOS

Rev

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

  1. ; this is trivial "does it even do something" check of SAVECPCSNA with a CPC464 device
  2. ; there's nothing to verify after the test except sjasmplus did not error out
  3.  
  4.     DEVICE AMSTRADCPC464
  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.     jr      .borderMess
  26.  
  27.     SAVECPCSNA "cpc464_savesna.sna", start
  28.