Subversion Repositories pentevo

Rev

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

  1.  
  2. ;LAST UPDATE: 24.03.2014 savelij
  3.  
  4. ;X,Y КООРДИНАТА,ТЕКСТ
  5. PRINT_MSG       LD A,(HL)
  6.                 INC HL
  7.                 LD C,(HL)
  8.                 INC HL
  9.                 PUSH HL
  10.                 LD L,C
  11.                 LD H,A
  12.                 CALL ADRDIS
  13.                 EX DE,HL
  14.                 POP HL
  15. PRINTMSG2       LD A,(HL)
  16.                 INC HL
  17.                 AND A
  18.                 RET Z
  19.                 PUSH DE
  20.                 PUSH HL
  21.                 LD BC,0X3C00
  22.                 LD L,A
  23.                 LD H,C
  24.                 ADD HL,HL
  25.                 ADD HL,HL
  26.                 ADD HL,HL
  27.                 ADD HL,BC
  28.                 REPT 8
  29.                 LD A,(HL)
  30.                 LD (DE),A
  31.                 INC HL
  32.                 INC D
  33.                 ENDM
  34.                 POP HL
  35.                 POP DE
  36.                 INC DE
  37.                 JR PRINTMSG2
  38.  
  39. ;H-X, L-Y
  40. ADRDIS          LD (ASD+1),A
  41.                 LD A,L
  42.                 AND 0X18
  43.                 OR 0X40
  44.                 EX AF,AF'
  45.                 LD A,L
  46.                 AND 7
  47.                 RRCA
  48.                 RRCA
  49.                 RRCA
  50.                 ADD A,H
  51.                 LD L,A
  52.                 EX AF,AF'
  53.                 LD H,A
  54.                 LD E,L
  55. ADRATR          LD A,H
  56.                 RRCA
  57.                 RRCA
  58.                 RRCA
  59.                 AND 3
  60.                 OR 0X58
  61.                 LD D,A
  62. ASD             LD A,0
  63.                 RET
  64.