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 #0,POSX
        MOVE.B #2,POXY
        JSR RANDT
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.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.B #$00,D0
        BEQ DECY
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 #0,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.B #A0,$10082
    MOVE.B (A0),D0
    AND.L #$7,D0
    MOVE.B D0,$10080
    CMP.B #$905,(A0)+
    BNE MUX2
    LEA $900,A0
MUX2:   ADD.B #1,RND
        RTE

VIDEO:  CLR.B $900
        CLR.B $901
        CLR.B $902
        CLR.B $903
        CLR.B $904
        RTS

RANDT:  MOVE.B RND,D0
        *** ;SKRIV KOD SOM ÖVERFÖR RND-VÄRDET TILL ÖNSKAT INTERVALL
        MOVE.B D0,TPOSX
        MOVE.B RND,D0
        *** ;SKRIV KOD SOM ÖVERFÖR RND-VÄRDET TILL ÖNSKAT INTERVALL
        MOVE.B D0,TPOSY
        RTS

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.B #1028,D6
    BCLR #3,$10084
LOOP:   SUBQ.B #1,D6
    BNE LOOP
    BSET #3,$10084
        RTS
        END