************************************************* * * * Programm: CopperCompiler.asm * * Version: 1.0 * * Autor: A. Signer * * geschrieben am: 4.1.1990 * * Kurzbeschreibung: Zeigt eine Copperlist * * * ************************************************* Forbid: equ -132 Permit: equ -138 OldOpenLibrary: equ -408 CloseLibrary: equ -414 CIAAPRA: equ $bfe001 DMACON: equ $dff096 *CALLEXEC macro * move.l $4.w,a6 * jsr _LVO\1(a6) * endm Start: move.l #grname,a1 ;Graphics-Library öffnen move.l 4.w,a6 jsr OldOpenLibrary(a6) move.l d0,a5 jsr Forbid(a6) ;Multitasking aus move.l 50(a5),d5 ;Zeiger auf alte Copperlist retten move.l #copper,50(a5) ;Zeiger auf eigene Copperliste schreiben WaitForMouse: btst #6,CIAAPRA ;Maustaste gedrückt bne.s WaitForMouse ;nein --> warten move.l d5,50(a5) ;Alte Copperlist jsr Permit(a6) ;Multitasking ein move.l a5,a1 jsr CloseLibrary(a6) ;Graphics zu rts ;zurück ins CLI grname: dc.b "graphics.library",0 even SECTION copper,DATA_C copper: dc.w $000F,$FFFE dc.w $0180,$0000 dc.w $010F,$FFFE dc.w $0180,$0110 dc.w $020F,$FFFE dc.w $0180,$0220 dc.w $030F,$FFFE dc.w $0180,$0330 dc.w $040F,$FFFE dc.w $0180,$0440 dc.w $050F,$FFFE dc.w $0180,$0550 dc.w $060F,$FFFE dc.w $0180,$0660 dc.w $070F,$FFFE dc.w $0180,$0770 dc.w $080F,$FFFE dc.w $0180,$0880 dc.w $090F,$FFFE dc.w $0180,$0990 dc.w $0A0F,$FFFE dc.w $0180,$0AA0 dc.w $0B0F,$FFFE dc.w $0180,$0BB0 dc.w $0C0F,$FFFE dc.w $0180,$0CC0 dc.w $0D0F,$FFFE dc.w $0180,$0DD0 dc.w $0E0F,$FFFE dc.w $0180,$0EE0 dc.w $0F0F,$FFFE dc.w $0180,$0FF0 dc.w $100F,$FFFE dc.w $0180,$0FF0 dc.w $110F,$FFFE dc.w $0180,$0EE0 dc.w $120F,$FFFE dc.w $0180,$0DD0 dc.w $130F,$FFFE dc.w $0180,$0CC0 dc.w $140F,$FFFE dc.w $0180,$0BB0 dc.w $150F,$FFFE dc.w $0180,$0AA0 dc.w $160F,$FFFE dc.w $0180,$0990 dc.w $170F,$FFFE dc.w $0180,$0880 dc.w $180F,$FFFE dc.w $0180,$0770 dc.w $190F,$FFFE dc.w $0180,$0660 dc.w $1A0F,$FFFE dc.w $0180,$0550 dc.w $1B0F,$FFFE dc.w $0180,$0440 dc.w $1C0F,$FFFE dc.w $0180,$0330 dc.w $1D0F,$FFFE dc.w $0180,$0220 dc.w $1E0F,$FFFE dc.w $0180,$0110 dc.w $1F0F,$FFFE dc.w $0180,$0000 dc.w $200F,$FFFE dc.w $0180,$0000 dc.w $210F,$FFFE dc.w $0180,$0110 dc.w $220F,$FFFE dc.w $0180,$0220 dc.w $230F,$FFFE dc.w $0180,$0330 dc.w $240F,$FFFE dc.w $0180,$0440 dc.w $250F,$FFFE dc.w $0180,$0550 dc.w $260F,$FFFE dc.w $0180,$0660 dc.w $270F,$FFFE dc.w $0180,$0770 dc.w $280F,$FFFE dc.w $0180,$0880 dc.w $290F,$FFFE dc.w $0180,$0990 dc.w $2A0F,$FFFE dc.w $0180,$0AA0 dc.w $2B0F,$FFFE dc.w $0180,$0BB0 dc.w $2C0F,$FFFE dc.w $0180,$0CC0 dc.w $2D0F,$FFFE dc.w $0180,$0DD0 dc.w $2E0F,$FFFE dc.w $0180,$0EE0 dc.w $2F0F,$FFFE dc.w $0180,$0FF0 dc.w $300F,$FFFE dc.w $0180,$0FF0 dc.w $310F,$FFFE dc.w $0180,$0EE0 dc.w $320F,$FFFE dc.w $0180,$0DD0 dc.w $330F,$FFFE dc.w $0180,$0CC0 dc.w $340F,$FFFE dc.w $0180,$0BB0 dc.w $350F,$FFFE dc.w $0180,$0AA0 dc.w $360F,$FFFE dc.w $0180,$0990 dc.w $370F,$FFFE dc.w $0180,$0880 dc.w $380F,$FFFE dc.w $0180,$0770 dc.w $390F,$FFFE dc.w $0180,$0660 dc.w $3A0F,$FFFE dc.w $0180,$0550 dc.w $3B0F,$FFFE dc.w $0180,$0440 dc.w $3C0F,$FFFE dc.w $0180,$0330 dc.w $3D0F,$FFFE dc.w $0180,$0220 dc.w $3E0F,$FFFE dc.w $0180,$0110 dc.w $3F0F,$FFFE dc.w $0180,$0000 dc.w $400F,$FFFE dc.w $0180,$0000 dc.w $410F,$FFFE dc.w $0180,$0110 dc.w $420F,$FFFE dc.w $0180,$0220 dc.w $430F,$FFFE dc.w $0180,$0330 dc.w $440F,$FFFE dc.w $0180,$0440 dc.w $450F,$FFFE dc.w $0180,$0550 dc.w $460F,$FFFE dc.w $0180,$0660 dc.w $470F,$FFFE dc.w $0180,$0770 dc.w $480F,$FFFE dc.w $0180,$0880 dc.w $490F,$FFFE dc.w $0180,$0990 dc.w $4A0F,$FFFE dc.w $0180,$0AA0 dc.w $4B0F,$FFFE dc.w $0180,$0BB0 dc.w $4C0F,$FFFE dc.w $0180,$0CC0 dc.w $4D0F,$FFFE dc.w $0180,$0DD0 dc.w $4E0F,$FFFE dc.w $0180,$0EE0 dc.w $4F0F,$FFFE dc.w $0180,$0FF0 dc.w $500F,$FFFE dc.w $0180,$0FF0 dc.w $510F,$FFFE dc.w $0180,$0EE0 dc.w $520F,$FFFE dc.w $0180,$0DD0 dc.w $530F,$FFFE dc.w $0180,$0CC0 dc.w $540F,$FFFE dc.w $0180,$0BB0 dc.w $550F,$FFFE dc.w $0180,$0AA0 dc.w $560F,$FFFE dc.w $0180,$0990 dc.w $570F,$FFFE dc.w $0180,$0880 dc.w $580F,$FFFE dc.w $0180,$0770 dc.w $590F,$FFFE dc.w $0180,$0660 dc.w $5A0F,$FFFE dc.w $0180,$0550 dc.w $5B0F,$FFFE dc.w $0180,$0440 dc.w $5C0F,$FFFE dc.w $0180,$0330 dc.w $5D0F,$FFFE dc.w $0180,$0220 dc.w $5E0F,$FFFE dc.w $0180,$0110 dc.w $5F0F,$FFFE dc.w $0180,$0000 dc.w $600F,$FFFE dc.w $0180,$0000 dc.w $610F,$FFFE dc.w $0180,$0110 dc.w $620F,$FFFE dc.w $0180,$0220 dc.w $630F,$FFFE dc.w $0180,$0330 dc.w $640F,$FFFE dc.w $0180,$0440 dc.w $650F,$FFFE dc.w $0180,$0550 dc.w $660F,$FFFE dc.w $0180,$0660 dc.w $670F,$FFFE dc.w $0180,$0770 dc.w $680F,$FFFE dc.w $0180,$0880 dc.w $690F,$FFFE dc.w $0180,$0990 dc.w $6A0F,$FFFE dc.w $0180,$0AA0 dc.w $6B0F,$FFFE dc.w $0180,$0BB0 dc.w $6C0F,$FFFE dc.w $0180,$0CC0 dc.w $6D0F,$FFFE dc.w $0180,$0DD0 dc.w $6E0F,$FFFE dc.w $0180,$0EE0 dc.w $6F0F,$FFFE dc.w $0180,$0FF0 dc.w $700F,$FFFE dc.w $0180,$0FF0 dc.w $710F,$FFFE dc.w $0180,$0EE0 dc.w $720F,$FFFE dc.w $0180,$0DD0 dc.w $730F,$FFFE dc.w $0180,$0CC0 dc.w $740F,$FFFE dc.w $0180,$0BB0 dc.w $750F,$FFFE dc.w $0180,$0AA0 dc.w $760F,$FFFE dc.w $0180,$0990 dc.w $770F,$FFFE dc.w $0180,$0880 dc.w $780F,$FFFE dc.w $0180,$0770 dc.w $790F,$FFFE dc.w $0180,$0660 dc.w $7A0F,$FFFE dc.w $0180,$0550 dc.w $7B0F,$FFFE dc.w $0180,$0440 dc.w $7C0F,$FFFE dc.w $0180,$0330 dc.w $7D0F,$FFFE dc.w $0180,$0220 dc.w $7E0F,$FFFE dc.w $0180,$0110 dc.w $7F0F,$FFFE dc.w $0180,$0000 dc.w $800F,$FFFE dc.w $0180,$0000 dc.w $810F,$FFFE dc.w $0180,$0110 dc.w $820F,$FFFE dc.w $0180,$0220 dc.w $830F,$FFFE dc.w $0180,$0330 dc.w $840F,$FFFE dc.w $0180,$0440 dc.w $850F,$FFFE dc.w $0180,$0550 dc.w $860F,$FFFE dc.w $0180,$0660 dc.w $870F,$FFFE dc.w $0180,$0770 dc.w $880F,$FFFE dc.w $0180,$0880 dc.w $890F,$FFFE dc.w $0180,$0990 dc.w $8A0F,$FFFE dc.w $0180,$0AA0 dc.w $8B0F,$FFFE dc.w $0180,$0BB0 dc.w $8C0F,$FFFE dc.w $0180,$0CC0 dc.w $8D0F,$FFFE dc.w $0180,$0DD0 dc.w $8E0F,$FFFE dc.w $0180,$0EE0 dc.w $8F0F,$FFFE dc.w $0180,$0FF0 dc.w $900F,$FFFE dc.w $0180,$0FF0 dc.w $910F,$FFFE dc.w $0180,$0EE0 dc.w $920F,$FFFE dc.w $0180,$0DD0 dc.w $930F,$FFFE dc.w $0180,$0CC0 dc.w $940F,$FFFE dc.w $0180,$0BB0 dc.w $950F,$FFFE dc.w $0180,$0AA0 dc.w $960F,$FFFE dc.w $0180,$0990 dc.w $970F,$FFFE dc.w $0180,$0880 dc.w $980F,$FFFE dc.w $0180,$0770 dc.w $990F,$FFFE dc.w $0180,$0660 dc.w $9A0F,$FFFE dc.w $0180,$0550 dc.w $9B0F,$FFFE dc.w $0180,$0440 dc.w $9C0F,$FFFE dc.w $0180,$0330 dc.w $9D0F,$FFFE dc.w $0180,$0220 dc.w $9E0F,$FFFE dc.w $0180,$0110 dc.w $9F0F,$FFFE dc.w $0180,$0000 dc.w $A00F,$FFFE dc.w $0180,$0000 dc.w $A10F,$FFFE dc.w $0180,$0110 dc.w $A20F,$FFFE dc.w $0180,$0220 dc.w $A30F,$FFFE dc.w $0180,$0330 dc.w $A40F,$FFFE dc.w $0180,$0440 dc.w $A50F,$FFFE dc.w $0180,$0550 dc.w $A60F,$FFFE dc.w $0180,$0660 dc.w $A70F,$FFFE dc.w $0180,$0770 dc.w $A80F,$FFFE dc.w $0180,$0880 dc.w $A90F,$FFFE dc.w $0180,$0990 dc.w $AA0F,$FFFE dc.w $0180,$0AA0 dc.w $AB0F,$FFFE dc.w $0180,$0BB0 dc.w $AC0F,$FFFE dc.w $0180,$0CC0 dc.w $AD0F,$FFFE dc.w $0180,$0DD0 dc.w $AE0F,$FFFE dc.w $0180,$0EE0 dc.w $AF0F,$FFFE dc.w $0180,$0FF0 dc.w $B00F,$FFFE dc.w $0180,$0FF0 dc.w $B10F,$FFFE dc.w $0180,$0EE0 dc.w $B20F,$FFFE dc.w $0180,$0DD0 dc.w $B30F,$FFFE dc.w $0180,$0CC0 dc.w $B40F,$FFFE dc.w $0180,$0BB0 dc.w $B50F,$FFFE dc.w $0180,$0AA0 dc.w $B60F,$FFFE dc.w $0180,$0990 dc.w $B70F,$FFFE dc.w $0180,$0880 dc.w $B80F,$FFFE dc.w $0180,$0770 dc.w $B90F,$FFFE dc.w $0180,$0660 dc.w $BA0F,$FFFE dc.w $0180,$0550 dc.w $BB0F,$FFFE dc.w $0180,$0440 dc.w $BC0F,$FFFE dc.w $0180,$0330 dc.w $BD0F,$FFFE dc.w $0180,$0220 dc.w $BE0F,$FFFE dc.w $0180,$0110 dc.w $BF0F,$FFFE dc.w $0180,$0000 dc.w $C00F,$FFFE dc.w $0180,$0000 dc.w $C10F,$FFFE dc.w $0180,$0110 dc.w $C20F,$FFFE dc.w $0180,$0220 dc.w $C30F,$FFFE dc.w $0180,$0330 dc.w $C40F,$FFFE dc.w $0180,$0440 dc.w $C50F,$FFFE dc.w $0180,$0550 dc.w $C60F,$FFFE dc.w $0180,$0660 dc.w $C70F,$FFFE dc.w $0180,$0770 dc.w $C80F,$FFFE dc.w $0180,$0880 dc.w $C90F,$FFFE dc.w $0180,$0990 dc.w $CA0F,$FFFE dc.w $0180,$0AA0 dc.w $CB0F,$FFFE dc.w $0180,$0BB0 dc.w $CC0F,$FFFE dc.w $0180,$0CC0 dc.w $CD0F,$FFFE dc.w $0180,$0DD0 dc.w $CE0F,$FFFE dc.w $0180,$0EE0 dc.w $CF0F,$FFFE dc.w $0180,$0FF0 dc.w $D00F,$FFFE dc.w $0180,$0FF0 dc.w $D10F,$FFFE dc.w $0180,$0EE0 dc.w $D20F,$FFFE dc.w $0180,$0DD0 dc.w $D30F,$FFFE dc.w $0180,$0CC0 dc.w $D40F,$FFFE dc.w $0180,$0BB0 dc.w $D50F,$FFFE dc.w $0180,$0AA0 dc.w $D60F,$FFFE dc.w $0180,$0990 dc.w $D70F,$FFFE dc.w $0180,$0880 dc.w $D80F,$FFFE dc.w $0180,$0770 dc.w $D90F,$FFFE dc.w $0180,$0660 dc.w $DA0F,$FFFE dc.w $0180,$0550 dc.w $DB0F,$FFFE dc.w $0180,$0440 dc.w $DC0F,$FFFE dc.w $0180,$0330 dc.w $DD0F,$FFFE dc.w $0180,$0220 dc.w $DE0F,$FFFE dc.w $0180,$0110 dc.w $DF0F,$FFFE dc.w $0180,$0000 dc.w $E00F,$FFFE dc.w $0180,$0000 dc.w $E10F,$FFFE dc.w $0180,$0110 dc.w $E20F,$FFFE dc.w $0180,$0220 dc.w $E30F,$FFFE dc.w $0180,$0330 dc.w $E40F,$FFFE dc.w $0180,$0440 dc.w $E50F,$FFFE dc.w $0180,$0550 dc.w $E60F,$FFFE dc.w $0180,$0660 dc.w $E70F,$FFFE dc.w $0180,$0770 dc.w $E80F,$FFFE dc.w $0180,$0880 dc.w $E90F,$FFFE dc.w $0180,$0990 dc.w $EA0F,$FFFE dc.w $0180,$0AA0 dc.w $EB0F,$FFFE dc.w $0180,$0BB0 dc.w $EC0F,$FFFE dc.w $0180,$0CC0 dc.w $ED0F,$FFFE dc.w $0180,$0DD0 dc.w $EE0F,$FFFE dc.w $0180,$0EE0 dc.w $EF0F,$FFFE dc.w $0180,$0FF0 dc.w $F00F,$FFFE dc.w $0180,$0FF0 dc.w $F10F,$FFFE dc.w $0180,$0EE0 dc.w $F20F,$FFFE dc.w $0180,$0DD0 dc.w $F30F,$FFFE dc.w $0180,$0CC0 dc.w $F40F,$FFFE dc.w $0180,$0BB0 dc.w $F50F,$FFFE dc.w $0180,$0AA0 dc.w $F60F,$FFFE dc.w $0180,$0990 dc.w $F70F,$FFFE dc.w $0180,$0880 dc.w $F80F,$FFFE dc.w $0180,$0770 dc.w $F90F,$FFFE dc.w $0180,$0660 dc.w $FA0F,$FFFE dc.w $0180,$0550 dc.w $FB0F,$FFFE dc.w $0180,$0440 dc.w $FC0F,$FFFE dc.w $0180,$0330 dc.w $FD0F,$FFFE dc.w $0180,$0220 dc.w $FE0F,$FFFE dc.w $0180,$0110 dc.w $FF0F,$FFFE dc.w $0180,$0000 dc.w $FFFF,$FFFE