[Coco] Hello World part2

[Roger Taylor]

I copied and pasted the source code below right into Portal-9 and as 
expected it only reported 3 lines that needed correction, all 
highlighted... so I changed the .NEQ. to <>   , and the two .EQU.s to =

It runs fine.  Nice job.


At 08:32 AM 1/21/2004 -0500, you wrote:
>Here is a slightly modified version of Theodore's Hello World program. It 
>is selectable for true lowercase or color mode for text. Unfortunately 
>numbers and punctuation have only one color set.
>
>* SLIGHTLY MODIFIED PROGRAM POSTED BY THEODORE EVANS
>* NEXT LINE SELECTS BLACK LETTERS GREEN BACKGROUND
>* GREEN LETTERS BLACK BACKGROUND OR TRUE LOWERCASE
>* ON GREEN BACKGROUND
>
>LETTER  EQU     -1      0=BLACK ON GREEN, 1=GREEN ON BLACK, -1=TRUE
>
>* NEXT LINE CAN BE CHANGED OR REMOVED
>         ORG     $7000
>* HELLO, WORLD
>* CLEAR SCREEN
>START    LDX #$0400
>         LDA     #$20
>         COND    LETTER.NEQ.0
>         ADDA    #$40
>         ENDC
>CLRLP    STA ,X+
>         CMPX #$0600
>         BLO CLRLP
>         COND    LETTER.EQU.-1
>         LDA     $FF22
>         ORA     #%00010000      ACTIVATE LOWERCASE
>         STA     $FF22
>         ENDC
>* WRITE 'HELLO, WORLD' TO MIDDLE OF SCREEN
>         LDX #$04EA
>         LDY #HELLO
>WRTLP    LDA ,Y+
>         BEQ     QUIT
>         COND    LETTER.EQU.0
>         CMPA    #$20
>         BEQ     NOFLP
>         ENDC
>         CMPA    #'@
>         BLO     FLIP
>         CMPA    #$60
>         BLO     NOFLP
>         ANDA    #$DF
>FLIP    EORA    #$40
>NOFLP   STA ,X+
>         BNE WRTLP
>QUIT    BRA     QUIT
>HELLO   FCC 'Hello, World'
>         FCB 0
>         END START
>
>
>--
>Coco mailing list
>Coco at maltedmedia.com
>http://five.pairlist.net/mailman/listinfo/coco


----------
Roger Taylor