&&------------------------------------------------------------------------------
CURSUS HARDWARE REGISTERS                                          VOORBEELD 4
------------------------------------------------------------------------------

;
; Listing 4 van de CopperCursus
;
; Een wit vlak op een rood scherm
;

       ORG     $40000
       LOAD    $40000

x:     MOVE    #$4000,$DFF09A       ; Interrupts uitzetten
       MOVE.L  #cop,$DFF080         ; COPADR1

waitm: BTST    #6,$BFE001           ; Test op muisknop
       BNE.S   waitm
       LEA     GFXNm,A1
       MOVEQ   #0,D0
       MOVE.L  #4,A6                ; Offset EXEC-library
       JSR     -552(A6)             ; OpenLibrary
       MOVE.L  38(A0),$DFF080
       MOVE.L  A0,A1
       JSR     -414(A6)             ; CloseLibrary
       RTS
&&GFXNm: DC.B      'graphics.library',0
       EVEN

cop:   DC.W $180,$F00
       DC.W $8049,%1000000011111110 ; WAIT $7F < Y < $100 en X=$49
       DC.W $180,$FFF
       DC.W $80CD,%1000000011111110 ; WAIT $7F < Y < $100 en X=$CD
       DC.W $180,$F00
       DC.W $80E1,%1000000011111110 ; WAIT $7F < Y < $100 en X=$E1
       DC.W $88,0

------------------------------------------------------------------------------
&&