?login_element?

Subversion Repositories NedoOS

Rev

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

  1. ;*** IO FOR UFO2: A-N(1..) HL-START DE-LENTGTH / CY=0 - ERROR
  2. XTAP
  3. *F xtap.a80
  4. SAVE    PUSH$
  5.         PUSH AF
  6.         PUSH IX
  7.         PUSH HL
  8.         POP IX
  9.         CALL 1222
  10.         POP IX
  11.         POP AF
  12.         POP$
  13.         RET
  14.  
  15. LOAD    PUSH$
  16.         PUSH AF
  17.         PUSH IX
  18.         PUSH HL
  19.         POP IX
  20.         SCF
  21.         CALL 1366
  22.         POP IX
  23.         POP AF
  24.         POP$
  25. ;       JR NC,LOAD
  26.         LD      A,0
  27.         OUT     (254),A
  28.         DI
  29.         RET
  30.  
  31. NRFMAX  EQU 73+1
  32. ;NRFT   DEFB 1 ;TAPE указатель
  33. NRF     DEFB 0 ;N файла
  34. Fstart  DEFW 0 ;адр.загрузки
  35. Flen    DEFW 0 ;длина
  36. READ    LD (NRF),A ;A-No;HL-start
  37.         LD (Fstart),HL
  38.         LD HL,XTAP-2
  39.         CALL WT
  40.         LD (Flen),HL
  41. REA1    LD A,(NRFT)
  42.         LD HL,NRF
  43.         CP (HL)
  44.         PUSH AF
  45.         LD HL,(Fstart)
  46.         LD DE,(Flen)
  47.         CALL LOAD
  48.         LD HL,NRFT
  49.         INC (HL)
  50.         LD A,(HL)
  51.         CP NRFMAX
  52.         JR C,REA2
  53.         LD (HL),1
  54. REA2    POP AF
  55.         RET Z
  56.         JR REA1
  57.  
  58. OLD_TR  INC H ;[]-Совместимость с XIOD
  59.         INC H
  60.         INC H
  61.         INC H
  62.  
  63. LD100
  64. D_READ 
  65. D_WRITE
  66. TR000   RET
  67. SIDE    DEFB 0