Apple-2-SW/emailler
1
0
Fork 0
mirror of https://github.com/bobbimanners/emailler.git synced 2025-01-25 07:30:51 +00:00
Code Issues Projects Releases Wiki Activity

Added LC2UC conversion for the Apple ][ and replaced column-setting-hack with printing a carriage return.

Browse Source
This commit is contained in:
Oliver Schmidt 2015-02-16 17:50:26 +01:00
parent bc17aefbfe
commit 7c3235b5bb
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
drivers/a2print.s
View File

@ -17,13 +17,16 @@ screen_current_row = $25 ; CV - Vertical cursor-position (0-23)
; outputs: none ; outputs: none
print_a: print_a:
ora #$80 ; turn ASCII into Apple 2 screen codes ora #$80 ; turn ASCII into Apple 2 screen codes
cmp #$8A ; is it a line feed? cmp #$e0 ; is it lower case?
bcc @check_line_feed
ldx $fbb3 ; check machine version
cpx #$06 ; is it at least an //e?
beq @check_line_feed
and #$df ; convert to upper case
@check_line_feed:
cmp #$8a ; is it a line feed?
bne @not_line_feed bne @not_line_feed
; jmp print_cr lda #$8d ; replace with a carriage return
pha
lda #$0
sta screen_current_col
pla
@not_line_feed: @not_line_feed:
jmp $fded jmp $fded