JMP COLD
POSX:   DC.B 0
POSY:   DC.B 0
TPOSX:  DC.B 0
TPOSY:  DC.B 0
LINE:   DC.B 0
RND:    DC.B 0
COLD:   LEA $8000,A7
        JSR PIA
        JSR INST
WARM:   MOVE.B #7, POSX         ;Välj eget startvärde
        MOVE.B #2, POSY         ;Välj eget startvärde
        JSR RANDOMT
GAME:   JSR JOY
        JSR VIDEO
        MOVE.B POSY,D0
        AND.L #$000000FF,D0
        LEA $900,A0
        ADD.L D0,A0
        MOVE.B POSX,D0
        BSET D0,(A0)
        MOVE.B TPOSY,D0
        AND.L #$7,D0
        LEA $900,A0
        ADD.L D0,A0
        MOVE.B TPOSX,D0
        BSET D0,(A0)
        MOVE.L #10000,D7
DLY:    SUB.L #1,D7
        BNE DLY
        MOVE.B TPOSX,D6
        CMP.B POSX,D6
        BNE GAME
        MOVE.B TPOSY,D6
        CMP.B POSY,D6
        BNE GAME
        JSR BEEP
        JMP WARM
JOY:    BCLR #3,$10086
        BSET #3,$10086
XCOORD: MOVE.B $10080,D0
        AND.B #$C0,D0
        CMP.B #$C0,D0
        BEQ INCX
        CMP.B #$00,D0
        BEQ DECX
        JMP YCOORD
DECX:   SUBQ.B #1,POSX
        JMP YCOORD
INCX:   ADD.B #1,POSX
YCOORD: MOVE.B $10080,D0
        AND.B #$30,D0
        CMP.B #$30,D0
        BEQ INCY
        CMP #$00,D0
        BEQ DECY
        JMP ENDCOR
DECY:   SUBQ.B #1,POSY
        JMP ENDCOR
INCY:   ADD.B #1,POSY
ENDCOR: JSR LIMITS
        RTS
LIMITS: MOVE.B POSX,D0
        BPL LIM1
        MOVE.B #,POSX
LIM1:   CMP.B #7,D0
        BNE LIMY
        MOVE.B #6,POSX
LIMY:   MOVE.B POSY,D0
        BPL LIM2
        MOVE.B #0,POSY
LIM2:   CMP.B #5,D0
        BNE LIM_EX
        MOVE.B #4,POSY
LIM_EX: RTS
MUX:    TST.B $10080
        MOVE.L D0,-(A7)
        MOVE.L A0,-(A7)
        LEA $900,A0
        CLR.W D0
        MOVE.B LINE,D0
        MOVE.B #$00,$10082
        MOVE.B LINE,$10080
        MOVE.B (A0,D0.W),D0
        MOVE.B D0,$10082
        MOVE.L (A0)+,A0
        MOVE.L (A0)+,D0
        ADD.B #1,RND
        CMP.B #4,LINE
        BEQ MUXG
        ADD.B #1,LINE
        RTE
MUXG:   MOVE.B #$0,LINE
        RTE
VIDEO:  CLR.B $900
        CLR.B $901
        CLR.B $902
        CLR.B $903
        CLR.B $904
        RTS
RANDT:  MOVE.B RND,D0
        AND.B #3,D0
        MOVE.B D0,TPOSX
        MOVE.B RND,D0
        AND.B #$1C,D0
        CMP.B #5,D0
        BGT RNDD
        MOVE.B D0,TPOSY
RNDR:   RTS
RNDD:   SUB.B #3,D0
        MOVE.B D0,TPOSY
        BRA RNDR
PIA:    CLR.B $10084
        CLR.B $10086
        MOVE.B #$07,$10080
        MOVE.B #$7F,$10082
        MOVE.B #$3F,$10084
        MOVE.B #$3C,$10086
        JSR
INST:   MOVE.L #MUX,$74
        AND.W #$F0FF,SR
        TST.B $10080
        RTS
BEEP:   MOVE.W #512,D6
LOOP:   MOVE.W #64,D4
LOOP1:  BCLR #3,$10084
        SUBQ.W #1,D4
        BNE LOOP1
        MOVE.W #64,D4
LOOP2:  BSET #3,$10084
        SUBQ.W #1,D4
        BNE LOOP2
        SUBQ.W #1,D6
        BNE LOOP
        BSET #3,$10084
        RTS