&&------------------------------------------------------------------------------
CURSUS HARDWARE REGISTERS                                          VOORBEELD 5
------------------------------------------------------------------------------

;
; Listing 5 van de CopperCursus
;
; Streepjes op een klein stuk
;

        ORG     $40000
        LOAD    $40000

x:      MOVE    #$4000,$DFF09A  ; Interrupts uitzetten
        MOVE.L  #cop,$DFF080    ; COPADR1
        MOVE.L  #label1,$DFF084 ; Adres voor COPJMP2

waitm:  BTST    #6,$BFE001
        BNE.S   waitm
        LEA     GFXNm,A1
        MOVEQ   #0,D0
        MOVE.L  #4,A6
        JSR     -552(A6)
        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 $600F,-2           ; WAIT $60,$0F
label1: DC.W $180,$F00
        DC.W $180,$FFF
        DC.W $180,$FFF
        DC.W $800F,-1           ; SKIP vanaf X>$80 en Y>$0F
        DC.W $8A,0              ; JMP label1 (COPJMP2)
        DC.W $180,$000          ; Eerste kommando na SKIP
        DC.W $FFFF,-2

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