?login_element?

Subversion Repositories NedoOS

Rev

Blame | Last modification | View Log | Download

  1. ;EGA=1
  2.         include "settings.ast"
  3.  
  4. xHERO=0xc000
  5. xDIE    EQU xHERO+#3000
  6. xBOOM   EQU xDIE+#300
  7. xBUM    EQU xBOOM+#300
  8. xBULL   EQU xBUM+#480
  9.  
  10. STACK=0x4000
  11. COMBATSTACK=0x3f80;#8F7E
  12.  
  13.         macro Ms _a;$   MAC
  14.         LD      A,_a ;=0
  15.         CALL    MEM
  16.         ENDM
  17.  
  18.         macro PUSHs;$   MAC
  19.         PUSH    HL
  20.         PUSH    DE
  21.         PUSH    BC
  22.         ENDM
  23.         macro POPs;POP$ MAC
  24.         POP     BC
  25.         POP     DE
  26.         POP     HL
  27.         ENDM
  28.  
  29.         macro pushs;$   MAC
  30.         PUSH    BC
  31.         PUSH    HL
  32.         ENDM
  33.         macro pops;pop$ MAC
  34.         POP     HL
  35.         POP     BC
  36.         ENDM
  37.         macro WRDs _hl,_a;$    MAC
  38.         LD HL,_hl;=0
  39.         LD (SX),HL
  40.         LD A,_a;=1
  41.         CALL NWRDM
  42.         ENDM
  43.