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

;
; Listing 3.1 van de CopperCursus
;
; Streepjes op de onderste helft van het scherm
; Versie 2
;

        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,$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  $180,$FFF
        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

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