dsforth/zxemut_macro.zas

   1 MACRO ZXEmuT_maxspeed_on
   2   defb 0xed,0xfe,0x18
   3   defb 1,0xfe
   4 ENDM ZXEmuT_maxspeed_on
   5
   6 MACRO ZXEmuT_maxspeed_off
   7   defb 0xed,0xfe,0x18
   8   defb 1,0xff
   9 ENDM ZXEmuT_maxspeed_off
  10
  11 MACRO ZXEmuT_pause
  12   defb 0xed,0xfe,0x18
  13   defb 1,3
  14 ENDM ZXEmuT_pause
  15
  16 MACRO ZXEmuT_bp
  17   defb 0xed,0xfe,0x18
  18   defb 1,2
  19 ENDM ZXEmuT_bp
  20
  21
  22 MACRO DS_RPEEK regpair
  23   ld    =regpair[1],(ix+0)
  24   ld    =regpair[0],(ix+1)
  25 ENDM DS_RPEEK regpair
  26
  27 MACRO DS_RPOP regpair
  28   ld    =regpair[1],(ix+0)
  29   ld    =regpair[0],(ix+1)
  30   inc   ix
  31   inc   ix
  32 ENDM DS_RPOP regpair
  33
  34 MACRO DS_RPUSH regpair
  35   dec   ix
  36   dec   ix
  37   ld    (ix+0),=regpair[1]
  38   ld    (ix+1),=regpair[0]
  39 ENDM DS_RPUSH regpair