&&------------------------------------------------------------------------------
CURSUS HARDWARE REGISTERS                                          VOORBEELD 3
------------------------------------------------------------------------------

;
; Listing 3 van de CopperCursus
;
; Streepjes op de onderste helft van het 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,0
        EVEN

cop:    DC.W  $180,$000            ; Achtergrond op zwart
        DC.W  $600F,-2             ; Wachten op regel $60
label1: DC.W  $180,$F00            ; Achtergrond op rood
        DC.W  $180,$FFF            ; Achtergrond op wit
        DC.W  $84,label1/$10000    ; High van label1 naar COPADR2
        DC.W  $86,label1&$FFFF     ; Low van label1 naar COPADR2
        DC.W  $8A,0                ; COPJMP2

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