?login_element?

Subversion Repositories NedoOS

Rev

Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | Download

  1.         DEVICE ZXSPECTRUM128
  2.         include "../_sdk/sys_h.asm"
  3.  
  4. BUF_SIZE=16*256
  5.  
  6.         org PROGSTART
  7. cmd_begin
  8.  
  9.         LD DE,FILE_NAME
  10.         OS_CREATEHANDLE
  11.         OR A
  12.         JP NZ,ERR_EXIT    ;обработка ошибок
  13.         LD A,B
  14.         LD (handle),A    ;сохраняем дескриптор
  15.  
  16.         LD B, #A0
  17.         LD HL, 0
  18. t0:    
  19.         ;push bc
  20.         ;LD B, #10
  21. ;t1:   
  22.         push bc
  23.         push hl
  24.         LD B,0 ;drive
  25.         LD DE,TRDOS_BUF
  26.         LD IX,0
  27.         LD A,BUF_SIZE/256
  28.         OS_READSECTORS ;b=drive, de=buffer, ixhl=sector number, a=count
  29.         LD A,(handle)
  30.         LD B,A
  31.         LD DE,TRDOS_BUF
  32.         LD HL,BUF_SIZE
  33.         OS_WRITEHANDLE
  34.         OR A
  35.         JP NZ,CLOSE_ERR_EXIT    ;обработка ошибок
  36.         pop hl
  37.         ;pop bc
  38.         ;inc hl
  39.         ;djnz t1
  40.         ld bc,BUF_SIZE/256
  41.         add hl,bc
  42.         pop bc
  43.         djnz t0
  44.  
  45. CLOSE_ERR_EXIT
  46.         LD A,(handle)
  47.         LD B,A
  48.         OS_CLOSEHANDLE
  49.         ;OR A
  50.         ;JP NZ,ERR_EXIT    ;обработка ошибок
  51. ERR_EXIT
  52.         QUIT
  53.  
  54. FILE_NAME:
  55.            DEFB "noname.trd",0  
  56.  
  57. handle
  58.            DEFB 0
  59.  
  60. TRDOS_BUF:
  61.         ds BUF_SIZE
  62.  
  63.  
  64. cmd_end
  65.  
  66.  
  67.         ;display "Size ",/d,cmd_end-cmd_begin," bytes"
  68.  
  69.         savebin "rdtrd.com",cmd_begin,cmd_end-cmd_begin
  70.  
  71.         ;LABELSLIST "../../us/user.l"
  72.