?login_element?

Subversion Repositories NedoOS

Rev

Rev 55 | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed

  1. ;stored        
  2.         LD HL,(T622A) ;длина файла/256?
  3. Z6369  LD DE,#3F ;???
  4.        OR A
  5.        SBC HL,DE
  6.         JR C,_Z637B
  7.  
  8.         PUSH HL
  9.         LD BC,#3F00
  10.         CALL Z6383
  11.         POP HL
  12.         JR Z6369
  13.  
  14. _Z637B   ADD HL,DE
  15.         LD B,L
  16.         LD A,(ML_LEN_ISH)
  17.         LD C,A
  18.         OR B
  19.         RET Z
  20.  
  21.         XOR A
  22.         LD (PROV1),A
  23.  
  24. Z6383   LD HL,BUFER
  25.         PUSH BC,HL
  26.         CALL Z631F
  27.         POP HL,BC
  28.         PUSH BC
  29.         LD DE,(ST_LEN)
  30.         PUSH DE
  31.         CALL COPYB
  32.         POP HL,BC
  33.         ADD HL,BC
  34.         LD (ST_LEN),HL
  35.         ;LD A,4
  36.         ;CALL ON_BANK
  37.         LD A,#FC
  38.         CP H
  39. PROV1   RET NZ
  40.         LD DE,0
  41.         PUSH DE
  42.         CALL SAVE
  43.         POP DE
  44.         LD (ST_LEN),DE
  45.         LD A,#C0;RET NZ
  46.         LD (PROV1),A
  47.         ;LD A,4
  48.         ;JP ON_BANK
  49.         ret
  50.  
  51.        
  52. ;HL= HAЧAЛO УПAKOBAHНOГO ФAЙЛA??? неправда!
  53.         PUSH AF,HL
  54. Z605D   LD A,(IX-1)
  55.         CP "/"
  56.         JR Z,_Z6068
  57.         DEC IX
  58.         DJNZ Z605D
  59. _Z6068  PUSH IX
  60.         POP DE ;de=после последнего слеша или в начале имени
  61.         LD HL,#5CE8
  62.         LD B,#B
  63. Z6070   DEC HL
  64.         LD (HL),#20
  65.         DJNZ Z6070
  66.  
  67.         LD BC,#72E
  68. Z6078   LD A,(DE)
  69.         INC DE
  70.         OR A
  71.         JR Z,Z6091
  72.         CP C
  73.         JR Z,Z6089
  74.         BIT 7,B
  75.         JR NZ,Z6078
  76.         DEC B
  77.         CP "A"
  78.         JR C,OK1
  79.         CP #5B
  80.         JR NC,OK1
  81.         SET 5,A
  82. OK1     LD (HL),A
  83.         INC HL
  84.         JR Z6078
  85.  
  86. Z6089   LD HL,#5CE5
  87.         LD BC,#200
  88.         JR Z6078
  89.  
  90. Z6091   LD HL,#5CDD ;TODO fix
  91.         LD DE,T61F7
  92.         LD BC,8
  93.         CALL Z61BB ;LDIR
  94.  
  95.         ADD HL,BC
  96.         LD A,(HL)
  97.         CP #20
  98.         LD C,3
  99.         CALL NZ,Z61B7 ;#2e, потом LDIR
  100.  
  101.         XOR A
  102.         LD (DE),A ;???
  103.  
  104.        
  105.         if 1==0
  106. ;fill the rest of buffer with zeros
  107.         ld de,DISKBUF
  108.         add hl,de
  109.         ex de,hl ;de=start of zeros
  110.         ld hl,DISKBUF+DISKBUFsz
  111.         xor a
  112.         sbc hl,de
  113.         ld b,h
  114.         ld c,l ;bc=length of zeros (Z=no zeros)
  115.         jr z,readdiskbuf_nozeros
  116.         ld h,d
  117.         ld l,e ;start of zeros
  118.         ld (hl),a;0
  119.         inc de
  120.         dec bc
  121.         ld a,b
  122.         or c
  123.         jr z,readdiskbuf_nozeros
  124.         ldir
  125. readdiskbuf_nozeros
  126.         endif
  127.  
  128.         if 1==0
  129. COPYB   LD A,D
  130.         RLCA
  131.         RLCA
  132.         AND 3
  133.         CALL ON_BANK
  134.         PUSH DE
  135.         LD A,D
  136.         OR #C0
  137.         LD D,A
  138.         LD A,(HL)
  139.         CALL CRC32_
  140.         LDI
  141.         POP DE
  142.         INC DE
  143.         JP PE,COPYB
  144. ;COPYB1  ;LD A,5
  145.         ;JP ON_BANK
  146.         ret
  147.         endif
  148.