?login_element?

Subversion Repositories NedoOS

Rev

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

  1.  
  2. GRFPAL
  3.         LD B,16
  4. GRFPAL0 ;
  5.         PUSH DE
  6.         LD C,(HL) ;G
  7.         INC HL
  8.         LD D,(HL) ;R
  9.         INC HL
  10.         LD E,(HL) ;B
  11.         INC HL
  12. ;%grbG11RB
  13.         RR C
  14.         RLA
  15.         RR D
  16.         RLA
  17.         RR E
  18.         RLA
  19.         RR C
  20.         RLA
  21.         ADD A,A
  22.         ADD A,A
  23.       ;OR 3 ;for set bits
  24.         RR D
  25.         RLA
  26.         RR E
  27.         RLA
  28.         POP DE
  29.         CPL
  30.         LD (DE),A
  31.         INC DE
  32.          ld (de),a
  33.          inc de
  34.         DJNZ GRFPAL0
  35.         RET
  36.  
  37. GRF2ATM
  38.         LD DE,grfadr+#84
  39.         ld a,(user_scr0_high) ;ok
  40.         CALL GRFFIELD
  41.         ;CALL SETPG0
  42.         EXD
  43. ;hl=was atr
  44.         CALL GRFREATR
  45.       ;LD HL,grfatr
  46.       ;LD DE,grfatr+1
  47.       ;LD BC,80*200-1
  48.       ;LD (HL),7
  49.       ;LDIR
  50.         ld a,(user_scr0_low) ;ok
  51.         LD DE,grfatr
  52. GRFFIELD
  53.         SETPG32KHIGH ;CALL SETPG
  54.         LD HL,(grfadr+#80) ;YX
  55.         LD B,H
  56.         SRL L
  57.         LD H,#C0
  58.         jr NC,$+4
  59.         LD H,#E0
  60.         INC B
  61.         DEC B
  62.         jr Z,GRFFIELDY0
  63.         LD DE,40
  64.         ADD HL,DE
  65.         DJNZ $-1
  66. GRFFIELDY0
  67.         LD A,(grfadr+#82) ;wid
  68.         LD B,A
  69. GRFFIELD0 ;
  70.         PUSH BC
  71.         CALL GRF2ATMPP
  72.         LD A,H
  73.         XOR #20
  74.         LD H,A
  75.         BIT 5,H
  76.         jr NZ,$+3
  77.         INC HL
  78.         POP BC
  79.         DJNZ GRFFIELD0
  80.         RET
  81.  
  82. GRF2ATMPP
  83.         PUSH HL
  84.         LD BC,40
  85.         LD A,(grfadr+#83) ;hgt
  86.         LD LX,A
  87. GRF2ATM1 ;
  88.         LD A,(DE)
  89.         INC DE
  90.         LD (HL),A
  91.         ADD HL,BC
  92.         DEC LX
  93.         jr NZ,GRF2ATM1
  94.         POP HL
  95.         RET
  96.  
  97. GRFREATR
  98.         PUSH HL ;was atr
  99.         LD A,(grfadr+#83) ;hgt
  100.         LD E,A
  101.         LD D,0
  102.         LD A,(grfadr+#82) ;wid
  103.         LD B,A
  104.         LD HL,grfatr
  105.         PUSH HL
  106.         ADD HL,DE
  107.         DJNZ $-1
  108.         LD (grfend),HL ;wid*hgt+grfatr
  109.         POP DE ;grfatr
  110.         POP HL ;was atr
  111. GRFREATR0
  112.         LD B,(HL)
  113.         INC HL
  114.         LD A,(HL)
  115.         INC HL
  116.         LD (DE),A
  117.         INC DE
  118.         DJNZ $-2
  119.         EXD
  120. grfend=$+1
  121.         LD BC,0
  122.         OR A
  123.         SBC HL,BC
  124.         ADD HL,BC
  125.         EXD
  126.         jr C,GRFREATR0
  127.         RET
  128.