[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