amos-professional/AMOSPro Sources/includes/exec/initializers.i

55 lines
880 B
OpenEdge ABL
Raw Normal View History

2020-04-26 00:58:13 +00:00
IFND EXEC_INITIALIZERS_I
EXEC_INITIALIZERS_I SET 1
**
** $Filename: exec/initializers.i $
** $Release: 1.3 $
**
**
**
** (C) Copyright 1985,1986,1987,1988 Commodore-Amiga, Inc.
** All Rights Reserved
**
INITBYTE MACRO * &offset,&value
DC.B $e0
DC.B 0
DC.W \1
DC.B \2
DC.B 0
ENDM
INITWORD MACRO * &offset,&value
DC.B $d0
DC.B 0
DC.W \1
DC.W \2
ENDM
INITLONG MACRO * &offset,&value
DC.B $c0
DC.B 0
DC.W \1
DC.L \2
ENDM
INITSTRUCT MACRO * &size,&offset,&value,&count
DS.W 0
IFC '\4',''
COUNT\@ SET 0
ENDC
IFNC '\4',''
COUNT\@ SET \4
ENDC
CMD\@ SET (((\1)<<4)!COUNT\@)
IFLE (\2)-255
DC.B (CMD\@)!$80
DC.B \2
MEXIT
ENDC
DC.B CMD\@!$0C0
DC.B (((\2)>>16)&$0FF)
DC.W ((\2)&$0FFFF)
ENDM
ENDC ; EXEC_INITIALIZERS_I