C128_CBars128_EDASS128_SourceCode

cbars128.asm       -a:0011-a:    -e:

         *=  $1300
         .obj m
         .bank 15
;                      ;lived.ch
         lda #147      ;clear screen
         jsr $ffd2     ;
         lda #22       ;lowercase map
         sta $a2c
;
 start   jsr $ffe4
         cmp #$0d      ;enter to quit
         beq basic
         ldx #$00
         ldy #62       ;start position
 cycle   lda color,x
         nop
         nop
         nop
         nop
         nop
         nop
         nop
 go      cpy $d012
         bne go
         sta $d020
         sta $d021
         lda #$00
         sta $f1       ;text color
         lda text1,x
         sta $0403+(40*9),x
         lda text2,x
         sta $0403+18+(40*9),x
         inx
         iny
         iny
         iny
         iny
         iny
         iny
         iny
         iny
         iny
         iny
         iny
         iny
         cpx #16
         bne cycle
         jmp start     ;and repeat
;
 basic   lda #$0c      ;exit settings
         sta $d020
         lda #$0b
         sta $d021
         lda #$0f
         sta $f1
         lda #$14      ;uppercase map
         sta $a2c
         rts
;
 color   .byte $01,$02,$03,$04,$05,$06
         .byte $07,$08,$09,$0a,$0b,$0c
         .byte $0e,$0d,$0f,$00
 text1   .text "c128 color bars!"
 text2   .text "press enter=quit"



--------------------------------------


C128 ML Source Code

; fb000 00 00 00 00 f8
d 1300
. 01300  a9 93    lda #$93
. 01302  20 d2 ff jsr $ffd2
. 01305  a9 16    lda #$16
. 01307  8d 2c 0a sta $0a2c
. 0130a  20 e4 ff jsr $ffe4
. 0130d  c9 0d    cmp #$0d
. 0130f  f0 3d    beq $134e
. 01311  a2 00    ldx #$00
. 01313  a0 3e    ldy #$3e
. 01315  bd 62 13 lda $1362,x
. 01318  ea       nop
. 01319  ea       nop
. 0131a  ea       nop
. 0131b  ea       nop
. 0131c  ea       nop
. 0131d  ea       nop
. 0131e  ea       nop
. 0131f  cc 12 d0 cpy $d012
. 01322  d0 fb    bne $131f
. 01324  8d 20 d0 sta $d020
. 01327  8d 21 d0 sta $d021
. 0132a  a9 00    lda #$00
. 0132c  85 f1    sta $f1
. 0132e  bd 72 13 lda $1372,x
. 01331  9d 6b 05 sta $056b,x
. 01334  bd 82 13 lda $1382,x
. 01337  9d 7d 05 sta $057d,x
. 0133a  e8       inx
. 0133b  c8       iny
. 0133c  c8       iny
. 0133d  c8       iny
. 0133e  c8       iny
. 0133f  c8       iny
. 01340  c8       iny
. 01341  c8       iny
. 01342  c8       iny
. 01343  c8       iny
. 01344  c8       iny
. 01345  c8       iny
. 01346  c8       iny
. 01347  e0 10    cpx #$10
. 01349  d0 ca    bne $1315
. 0134b  4c 0a 13 jmp $130a
. 0134e  a9 0c    lda #$0c
. 01350  8d 20 d0 sta $d020
. 01353  a9 0b    lda #$0b
. 01355  8d 21 d0 sta $d021
. 01358  a9 0f    lda #$0f
. 0135a  85 f1    sta $f1
. 0135c  a9 14    lda #$14
. 0135e  8d 2c 0a sta $0a2c
. 01361  60       rts


>01362 01 02 03 04 05 06 07 08:........
>0136a 09 0a 0b 0c 0e 0d 0f 00:........
>01372 43 31 32 38 20 43 4f 4c:c128 col
>0137a 4f 52 20 42 41 52 53 21:or bars!
>01382 50 52 45 53 53 20 45 4e:press en
>0138a 54 45 52 3d 51 55 49 54:ter=quit
>01392 00 00 00 00 00 00 00 00:........
>0139a 00 00 00 00 00 00 00 00:........
>013a2 00 00 00 00 00 00 00 00:........
>013aa 00 00 00 00 00 00 00 00:........
>013b2 00 00 00 00 00 00 00 00:........
>013ba 00 00 00 00 00 00 00 00:........