b2f1b22335
-moved all includes into "include" directory -extracted "wait...()"-routines into separate files
74 lines
1.2 KiB
C
74 lines
1.2 KiB
C
//--------------------------------------------------------------------
|
|
// pea
|
|
//--------------------------------------------------------------------
|
|
.text
|
|
ii_pea_lset:.macro
|
|
ii_lset_opeag 48,7
|
|
ii_lset 0x487b
|
|
.endm
|
|
//---------------------------------------------------------------------------------------------
|
|
ii_pea_func:.macro
|
|
ii_0x4870:
|
|
#ifdef halten_pea
|
|
halt
|
|
#endif
|
|
move.l a0_off(a7),a1
|
|
pea_macro
|
|
ii_0x4871:
|
|
#ifdef halten_pea
|
|
halt
|
|
#endif
|
|
move.l a1_off(a7),a1
|
|
pea_macro
|
|
ii_0x4872:
|
|
#ifdef halten_pea
|
|
halt
|
|
#endif
|
|
move.l a2,a1
|
|
pea_macro
|
|
ii_0x4873:
|
|
#ifdef halten_pea
|
|
halt
|
|
#endif
|
|
move.l a3,a1
|
|
pea_macro
|
|
ii_0x4874:
|
|
#ifdef halten_pea
|
|
halt
|
|
#endif
|
|
move.l a4,a1
|
|
pea_macro
|
|
ii_0x4875:
|
|
#ifdef halten_pea
|
|
halt
|
|
#endif
|
|
move.l a5,a1
|
|
pea_macro
|
|
ii_0x4876:
|
|
#ifdef halten_pea
|
|
halt
|
|
#endif
|
|
move.l a6,a1
|
|
pea_macro
|
|
ii_0x4877:
|
|
#ifdef halten_pea
|
|
halt
|
|
#endif
|
|
move.l usp,a1
|
|
pea_macro
|
|
ii_0x487b:
|
|
#ifdef halten_pea
|
|
halt
|
|
#endif
|
|
move.l a0,a1
|
|
pea_macro
|
|
.endm
|
|
//---------------------------------------------------------------------------------------------
|
|
pea_macro:.macro
|
|
jsr ewf
|
|
move.l (a1),d0
|
|
move.l usp,a1
|
|
move.l d0,-(a1)
|
|
move.l a1,usp
|
|
ii_end
|
|
.endm |