;; Challenge to draw an 'X' on the screen ;; Does not wait for keypress when done ;; Couldn't tell if challenge included black border, so ;; just make backgroun black and ignored border ;; Compiler: 64tass *=$1000 ;; Put cursor on line 24 ldx #$18 jsr $e50c ;; Do this after since PlaceCursor destroys registers ldx #$00 ldy #$27 stx $d021 Loop: txa ldx #$07 GetBit: rol data,x dex bpl GetBit tax bcs PlotChar lda #$0d jsr $ffd2 bcc loop ; CHROUT *should* be CLCing. PlotChar: lda #$a0 sta $07c0, X ; can't indirect-index with X sta ($d1), Y ; $d1 holds c0 07, so save a byte inx dey bpl Loop exit: rts ;; 1 = block; 0 = CR data: .byte %11010110, %10110110, %10110101, %10110101 .byte %10101101, %10101101, %01101101, %01101011