getting assembler working
This commit is contained in:
parent
adc1e73777
commit
89147083a0
30
asmtest.asm
Normal file
30
asmtest.asm
Normal file
@ -0,0 +1,30 @@
|
|||||||
|
FUNC_CNT SET -30
|
||||||
|
FUNCDEF MACRO
|
||||||
|
_LVO\1 EQU FUNC_CNT
|
||||||
|
FUNC_CNT SET FUNC_CNT-6
|
||||||
|
ENDM
|
||||||
|
|
||||||
|
INCDIR "devpac:include/"
|
||||||
|
INCLUDE "exec/exec_lib.i"
|
||||||
|
INCLUDE "exec/libraries.i" # get the CALLLIB macro
|
||||||
|
INCLUDE "dos/dos_lvo.i"
|
||||||
|
|
||||||
|
MOVE.L #DOSLibrary,A1
|
||||||
|
MOVE.L #36,D0
|
||||||
|
MOVEA.L 4,A6
|
||||||
|
CALLLIB _LVOOpenLibrary
|
||||||
|
MOVE.L D0,DOSBase
|
||||||
|
|
||||||
|
MOVE.L #Wow,D1
|
||||||
|
MOVEA.L DOSBase,A6
|
||||||
|
CALLLIB _LVOPutStr
|
||||||
|
|
||||||
|
MOVEA.L DOSBase,A1
|
||||||
|
MOVEA.L 4,A6
|
||||||
|
CALLLIB _LVOCloseLibrary
|
||||||
|
RTS
|
||||||
|
|
||||||
|
DOSBase DCB.L 1,0
|
||||||
|
|
||||||
|
DOSLibrary DC.B "dos.library",0
|
||||||
|
Wow DC.B "wow",10,0
|
@ -5,6 +5,8 @@
|
|||||||
#include <hardware/custom.h>
|
#include <hardware/custom.h>
|
||||||
#include <hardware/dmabits.h>
|
#include <hardware/dmabits.h>
|
||||||
|
|
||||||
|
#include <exec/memory.h>
|
||||||
|
|
||||||
#include "old_hardware_setup.h"
|
#include "old_hardware_setup.h"
|
||||||
|
|
||||||
extern struct GfxBase *GfxBase;
|
extern struct GfxBase *GfxBase;
|
||||||
@ -13,6 +15,10 @@ extern far struct Custom custom;
|
|||||||
int main(void) {
|
int main(void) {
|
||||||
struct OldHardwareSetup oldHardwareSetup;
|
struct OldHardwareSetup oldHardwareSetup;
|
||||||
|
|
||||||
|
void *copperlist;
|
||||||
|
UWORD *copperlist_ptr;
|
||||||
|
APTR *bitplane;
|
||||||
|
|
||||||
oldHardware_takeOver(&oldHardwareSetup);
|
oldHardware_takeOver(&oldHardwareSetup);
|
||||||
|
|
||||||
custom.dmacon = DMAF_SETCLR | DMAF_COPPER | DMAF_RASTER;
|
custom.dmacon = DMAF_SETCLR | DMAF_COPPER | DMAF_RASTER;
|
||||||
@ -22,6 +28,9 @@ int main(void) {
|
|||||||
// create a copperlist
|
// create a copperlist
|
||||||
// how do you write fonts to a bitpane?
|
// how do you write fonts to a bitpane?
|
||||||
|
|
||||||
|
copperlist = AllocMem(21000, MEMF_CHIP | MEMF_CLEAR);
|
||||||
|
|
||||||
|
FreeMem(copperlist, 21000);
|
||||||
|
|
||||||
oldHardware_giveBack(&oldHardwareSetup);
|
oldHardware_giveBack(&oldHardwareSetup);
|
||||||
}
|
}
|
||||||
|
Loading…
Reference in New Issue
Block a user