Subversion Repositories NedoOS

Rev

Rev 1194 | Blame | Compare with Previous | Last modification | View Log | Download

  1.         DEVICE ZXSPECTRUM128
  2.         include "../_sdk/sys_h.asm"
  3.  
  4.         org PROGSTART
  5. cmd_begin:
  6.  
  7.         ld      bc,0xfffd
  8.         ld      a,0xfe
  9.         out     (c),a
  10.         call    shut_ay
  11.  
  12.         ld      bc,0xfffd
  13.         out     (c),b
  14.         call    shut_ay
  15.  
  16.         ld      hl,0
  17.         QUIT
  18.  
  19. shut_ay:
  20.         ld      hl,tbl
  21.  
  22.         ld      a,4
  23. .loop
  24.         ld      b,0x00
  25.         outi
  26.         ld      b,0xc0
  27.         outi
  28.         dec     a
  29.         jr      nz,.loop
  30.  
  31.         ret
  32.  
  33. tbl:   
  34.         db      7,0xFF
  35.         db      8,0
  36.         db      9,0
  37.         db      10,0
  38.        
  39.  
  40. cmd_end:
  41.  
  42.         display "Size ",/d,cmd_end-cmd_begin," bytes"
  43.  
  44.         savebin "shay.com",cmd_begin,cmd_end-cmd_begin
  45.        
  46.         ;LABELSLIST "../us/user.l"
  47.