139 lines
2.5 KiB
ArmAsm
139 lines
2.5 KiB
ArmAsm
|
;---------------------------------------------------------------------
|
||
|
|
; *** *** ** ** **** **** ** ** ** ** ** *** ***
|
||
|
|
; ** ** ** *** *** ** ** ** ** ** **** *** *** ** ** **
|
||
|
|
; ** ** ** ** * ** ** ** ** ** ** ** ** ** * ** ** ** ***
|
||
|
|
; ** ** ** ** ** **** ** ** ****** ** ** ** ** **
|
||
|
|
; ** ** ** ** ** ** ** ** ** ** ** ** ** ** * **
|
||
|
|
; *** *** ** ** ** **** **** ** ** ** ** *** ***
|
||
|
|
;---------------------------------------------------------------------
|
||
|
|
; EQUATES
|
||
|
|
;---------------------------------------------------------------------
|
||
|
|
C_Code1 equ $FE
|
||
|
|
C_Code2 equ $01
|
||
|
|
C_CodeD equ $6543
|
||
|
|
C_CodeJ equ $F7
|
||
|
|
|
||
|
|
CiJSR equ $4EB9
|
||
|
|
CiJMP equ $4EF9
|
||
|
|
CiBGT equ $6E00
|
||
|
|
CodeR equ $8F
|
||
|
|
Rjmp MACRO
|
||
|
|
dc.b C_Code1,0*16+C_Code2
|
||
|
|
dc.b C_CodeJ,0
|
||
|
|
dc.w \1
|
||
|
|
ENDM
|
||
|
|
Rjsr MACRO
|
||
|
|
dc.b C_Code1,1*16+C_Code2
|
||
|
|
dc.b C_CodeJ,0
|
||
|
|
dc.w \1
|
||
|
|
ENDM
|
||
|
|
Ljmp MACRO
|
||
|
|
dc.b C_Code1,0*16+C_Code2
|
||
|
|
dc.b C_CodeJ,\2
|
||
|
|
dc.w \1
|
||
|
|
ENDM
|
||
|
|
Ljsr MACRO
|
||
|
|
dc.b C_Code1,1*16+C_Code2
|
||
|
|
dc.b C_CodeJ,\2
|
||
|
|
dc.w \1
|
||
|
|
ENDM
|
||
|
|
Rbra MACRO
|
||
|
|
dc.b C_Code1,2*16+C_Code2
|
||
|
|
dc.w \1
|
||
|
|
ENDM
|
||
|
|
Rbsr MACRO
|
||
|
|
dc.b C_Code1,3*16+C_Code2
|
||
|
|
dc.w \1
|
||
|
|
ENDM
|
||
|
|
Rbeq MACRO
|
||
|
|
dc.b C_Code1,4*16+C_Code2
|
||
|
|
dc.w \1
|
||
|
|
ENDM
|
||
|
|
Rbne MACRO
|
||
|
|
dc.b C_Code1,5*16+C_Code2
|
||
|
|
dc.w \1
|
||
|
|
ENDM
|
||
|
|
Rbcs MACRO
|
||
|
|
dc.b C_Code1,6*16+C_Code2
|
||
|
|
dc.w \1
|
||
|
|
ENDM
|
||
|
|
Rbcc MACRO
|
||
|
|
dc.b C_Code1,7*16+C_Code2
|
||
|
|
dc.w \1
|
||
|
|
ENDM
|
||
|
|
Rblt MACRO
|
||
|
|
dc.b C_Code1,8*16+C_Code2
|
||
|
|
dc.w \1
|
||
|
|
ENDM
|
||
|
|
Rbge MACRO
|
||
|
|
dc.b C_Code1,9*16+C_Code2
|
||
|
|
dc.w \1
|
||
|
|
ENDM
|
||
|
|
Rbls MACRO
|
||
|
|
dc.b C_Code1,10*16+C_Code2
|
||
|
|
dc.w \1
|
||
|
|
ENDM
|
||
|
|
Rbhi MACRO
|
||
|
|
dc.b C_Code1,11*16+C_Code2
|
||
|
|
dc.w \1
|
||
|
|
ENDM
|
||
|
|
Rble MACRO
|
||
|
|
dc.b C_Code1,12*16+C_Code2
|
||
|
|
dc.w \1
|
||
|
|
ENDM
|
||
|
|
Rbpl MACRO
|
||
|
|
dc.b C_Code1,13*16+C_Code2
|
||
|
|
dc.w \1
|
||
|
|
ENDM
|
||
|
|
Rbmi MACRO
|
||
|
|
dc.b C_Code1,14*16+C_Code2
|
||
|
|
dc.w \1
|
||
|
|
ENDM
|
||
|
|
Rbgt MACRO
|
||
|
|
dc.w CiBGT+4
|
||
|
|
Rble \1
|
||
|
|
ENDM
|
||
|
|
Rdata MACRO
|
||
|
|
dc.b C_Code1,15*16+C_Code2
|
||
|
|
dc.w C_CodeD
|
||
|
|
ENDM
|
||
|
|
Rlea MACRO
|
||
|
|
lea \1,\2
|
||
|
|
ENDM
|
||
|
|
;Alea MACRO
|
||
|
|
; move.l a5,\2
|
||
|
|
; add.w A\1(a5),\2
|
||
|
|
; ENDM
|
||
|
|
*
|
||
|
|
GfxC MACRO
|
||
|
|
movem.l d0-d7/a0-a6,-(sp)
|
||
|
|
move.l T_GfxBase(a5),a6
|
||
|
|
jsr \1(a6)
|
||
|
|
movem.l (sp)+,d0-d7/a0-a6
|
||
|
|
ENDM
|
||
|
|
*
|
||
|
|
BitLib equ 31
|
||
|
|
BitChaine equ 30
|
||
|
|
BitLabel equ 29
|
||
|
|
*
|
||
|
|
Hunk_Public equ 0
|
||
|
|
Hunk_Chip equ $40000000
|
||
|
|
N_HunkSys equ 8
|
||
|
|
NH_Header equ 0
|
||
|
|
NH_Prog equ 1
|
||
|
|
NH_Reloc equ 2
|
||
|
|
NH_W.Lib equ 3
|
||
|
|
NH_Env equ 4
|
||
|
|
NH_Mouse equ 5
|
||
|
|
NH_Font equ 6
|
||
|
|
NH_Key equ 7
|
||
|
|
*
|
||
|
|
FlagFloat equ EdMarks+4*4
|
||
|
|
AForNext equ EdMarks+5*4
|
||
|
|
Ad_Labels equ EdMarks+6*4
|
||
|
|
Num_Proc equ EdMarks+7*4
|
||
|
|
LowPile equ EdMarks+8*4
|
||
|
|
LowPileP equ EdMarks+9*4
|
||
|
|
*
|
||
|
|
;---------------------------------------------------------------------
|