Apple-2-SW/apple2_printm
1
0
Fork 0
mirror of https://github.com/Michaelangel007/apple2_printm.git synced 2024-06-10 07:29:32 +00:00
Code Issues Projects Releases Wiki Activity

Ver 13

Browse Source
This commit is contained in:
Michaelangel007 2016-02-18 12:48:00 -08:00
parent 45bc1fa32d
commit 2400ba50e0
1 changed files with 23 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
printm.s
View File

@ -1,9 +1,10 @@
; Version 12
; ca65
.feature c_comments
/*
/* Version 13
printm - a printf replacement for 6502
Michael Pohroeski
Problem:
We want to print this:
@ -61,8 +62,6 @@ ENABLE_PTR = 1 ; requires ENABLE_HEX
ENABLE_STR = 1
.feature labels_without_colons
.feature leading_dot_in_identifiers
; 65C02
@ -166,18 +165,23 @@ _HgrAddr
JSR ReverseByte
STA DATA+12
.if ENABLE_BIN || ENABLE_DEC || ENABLE_HEX
LDY #0
JSR VTABY
LDX #<DATA ; Low Byte of Address
LDY #>DATA ; High Byte of Address
JSR PrintM
.endif
.if ENABLE_BYTE
LDY #2
JSR VTABY
LDX #<DATA2
LDY #>DATA2
JSR PrintM
.endif ; ENABLE_BYTE
.if ENABLE_STR
LDY #4
JSR VTABY
LDX #<DATA3
@ -189,6 +193,7 @@ _HgrAddr
LDX #<DATA4
LDY #>DATA4
JSR PrintM
.endif ; ENABLE_STR
LDA #8
JMP TABV
@ -322,7 +327,7 @@ DATA4
ds 256 - <*
; Self-Modifying variable aliases
; self-modifying variable aliases
_pScreen = PutChar +1
_pFormat = GetFormat +1
@ -421,7 +426,7 @@ _PrintPtr
JSR NxtArgToTemp
; JSR NxtArgYX
; 13 bytes - zero page version
; 13 bytes: zero page version
; STX _temp+0 ; zero-page for (ZP),Y
; STY _temp+1
LDY #$0
@ -431,7 +436,7 @@ _PrintPtr
LDA (_temp),Y
TAY
; 20 bytes - self modifying code version if zero-page not available
; 20 bytes: self-modifying code version if zero-page not available
; STX PtrVal+1
; STY PtrVal+2
; LDY #0 ; 0: A->X
@ -463,6 +468,7 @@ GetFormat
LDA $C0DE ; _pFormat NOTE: self-modifying!
BEQ _Done
BMI Print ; neg = literal
; NOTE: If all features are turned off, will get a ca65 Range Error
LDX #NumMeta-1 ; pos = meta
FindMeta
CMP MetaChar,X
@ -552,7 +558,7 @@ _BCD2Char
BPL _BCD2Char
DecWidth
LDX #0 ; _nDecDigits NOTE: self modifying!
LDX #0 ; _nDecDigits NOTE: self-modifying!
JMP PrintReverseBCD
.endif ; ENABLE_DEC
@ -676,7 +682,7 @@ _PrintCharA
; ======================================================================
PutChar
STA $400 ; NOTE: self-modifying!
STA $C0DE ; _pScreen NOTE: self-modifying!
INC PutChar+1 ; inc lo
RTS