Subversion Repositories NedoOS

Rev

Blame | Last modification | View Log | Download

  1. CHIME
  2.         CALL    PUSHA
  3.         LD      DE,#0E00
  4.         LD      HL,CHIMEBF
  5.         LD      BC,#FFFD
  6. CHIME1
  7.         LD      A,(HL)
  8.         OUT     (C),E
  9.         LD      B,#BF
  10.         OUT     (C),A
  11.         LD      B,#FF
  12.         INC     HL
  13.         INC     E
  14.         DEC     D
  15.         JP      Z,POPA
  16.         JR      CHIME1
  17.  
  18. CHIMEBF
  19.         DEFW    #01A6,#014F,#011A
  20.         DEFB    0,#78,#10,#10,#10,0,8,0,0
  21. OHL
  22.         DEFW    0
  23.  
  24. PUSHA
  25.         LD      (OHL),HL
  26.         POP     HL      ;Return address
  27.         LD      (PA1+1),HL
  28.         LD      HL,(OHL)
  29.         PUSH    AF
  30.         PUSH    BC
  31.         PUSH    DE
  32.         PUSH    HL
  33.         PUSH    IX
  34.         PUSH    IY
  35. PA1
  36.         JP      0
  37.  
  38. POPA
  39.         POP     IY
  40.         POP     IX
  41.         POP     HL
  42.         POP     DE
  43.         POP     BC
  44.         POP     AF
  45.         RET
  46.