[Coco] Newbie help: Barden Bubble w/ Portal-9

[jimcox at miba51.com]

Roger:

Sorry to be dense but this is not working.  See comments 
below.  I am using P9 1.44, will upgrade later.

On Sun, 25 Jan 2004 23:54:16 -0600
  Roger Taylor <rtaylor at bayou.com> wrote:
>Create your project

I enter the code and the program wants to save in 
"MyProject"
folder.

>Add a target disk called 'bubble' or something similar.

Done

>Click 'Add New Source Component'

Done, and it opens a "Save As" dialog box.

>Point to the .asm file below

Do you mean the code I entered below and saved as "bubble" 
in MYPROJECT?  It's already listed as bubble.por, just 
type over this with what?

>In the left panel, choose Multi-Record, and in the 
>'output filename' field, type something like 
>'bubble.bin'.  You have to give it a name to be called on 
>the destinated disk.  In the filetype field, choose 
>'binary'.
>
>Click the Go button.  Voila.
>
>
>At 09:45 PM 1/25/2004 -0800, you wrote:
>>Hi all:
>>
>>I entered the code below into a new file in Portal-9, set 
>>the file to be assembled as a single file, and the type 
>>of system to CoCo2 and MESS came up, but nothing runs. 
>> Any pointers?

>>
>>00100 * BUBBLE SORT
>>00110 BUBSRT CLR     PASSNO   SET PASS # TO 0
>>00120 BUB010 LDX     #$400       POINT TO SCREEN
>>00130        LDY     #0          SET CHANGEFLAG TO 0
>>00140 BUB020 LDA     ,X+            GET FIRST ENTRY
>>00150        CMPA    ,X             TEST NEXT
>>00160        BLS     BUB030         GO IF A<=B
>>00170        LDB     ,X             GET SECOND ENTRY
>>00180        STB     -1,X           SWAP B TO A
>>00190        STA     ,X             SWAP A TO B
>>00200        LDY     #1             SET "CHANGE"
>>00210 BUB030 CMPX    #$400+511      TEST FOR SCREEN END
>>00220        BNE     BUB020         GO IF NOT ONE PASS
>>00230        INC     PASSNO       INCREMENT PASS #
>>00240        CMPY    #0           TEST CHANGE FLAG
>>00250        BNE     BUB010       GO IF CHANGE OCCURRED
>>00260 LOOP   JMP     LOOP       LOOP HERE
>>00270 PASSNO FCB     0          PASS #
>>00280        END
>>
>>I think it's something really stupid on my part.
>>
>>Jim
>>
>>--
>>Coco mailing list
>>Coco at maltedmedia.com
>>http://five.pairlist.net/mailman/listinfo/coco
>
>
>----------
>Roger Taylor
>
>
>
>
>-- 
>Coco mailing list
>Coco at maltedmedia.com
>http://five.pairlist.net/mailman/listinfo/coco