Ver 6
This commit is contained in:
Michaelangel007
parent
17c138f8ed
commit
ea442989bf
82
printm.s
82
printm.s
|
|
@ -111,7 +111,7 @@ TEXT
|
|||
APPLE "X="
|
||||
.byte "#"
|
||||
APPLE " Y="
|
||||
.byte "#"
|
||||
.byte "d"
|
||||
APPLE " $="
|
||||
.byte "x"
|
||||
APPLE ":"
|
||||
|
|
@ -182,7 +182,7 @@ NextArg
|
|||
|
||||
; x Hex 2 Byte
|
||||
; $ Hex 4 Byte
|
||||
; =-=-=-=-=-=-=-=-=-=-
|
||||
;========================================================================
|
||||
PrintHex4
|
||||
LDA #4
|
||||
BNE _PrintHex
|
||||
|
|
@ -222,16 +222,20 @@ HexNibbles
|
|||
CPX #0 ; _nHexNibbles NOTE: self-modifying!
|
||||
BNE _HexDigit
|
||||
|
||||
PrintHexDigit
|
||||
; PHX
|
||||
; PLY
|
||||
; Intentional fall into reverse BCD
|
||||
|
||||
PrintReverseBCD
|
||||
DEX
|
||||
BMI NextFormat
|
||||
LDA _bcd, X
|
||||
JSR PutChar
|
||||
BRA PrintHexDigit
|
||||
BRA PrintReverseBCD
|
||||
|
||||
; @ Ptr 2 Byte
|
||||
; & Ptr 4 Byte
|
||||
; =-=-=-=-=-=-=-=-=-=-
|
||||
;========================================================================
|
||||
PrintPtr4
|
||||
LDA #4
|
||||
BNE _PrintPtr
|
||||
|
|
@ -259,8 +263,12 @@ _PrintPtr
|
|||
|
||||
Print
|
||||
JSR PutChar
|
||||
|
||||
; Adjust pointer to next char in format
|
||||
NextFormat
|
||||
JSR IncFormat
|
||||
INC _pFormat+0
|
||||
BNE GetFormat
|
||||
INC _pFormat+1
|
||||
GetFormat
|
||||
LDA $C0DE ; _pFormat NOTE: self-modifying!
|
||||
BEQ _Done
|
||||
|
|
@ -282,9 +290,10 @@ _Done
|
|||
|
||||
; === Meta Ops ===
|
||||
|
||||
; # Dec 1 Byte (max 3 digits)
|
||||
; d Dec 2 Byte (max 5 digits)
|
||||
; =-=-=-=-=-=-=-=-=-=-
|
||||
; # Dec 1 Byte (max 2 digits)
|
||||
; d Dec 2 Byte (max 3 digits)
|
||||
; u Dec 2 Byte (max 5 digits)
|
||||
;========================================================================
|
||||
PrintDec2
|
||||
LDA #2 ; skip first 2 digits
|
||||
_PrintDec
|
||||
|
|
@ -344,33 +353,17 @@ _BCD2Char
|
|||
DEX
|
||||
BPL _BCD2Char
|
||||
|
||||
LDX _bcd+0
|
||||
LDY _bcd+1
|
||||
LDA _bcd+2
|
||||
STX $600
|
||||
STY $601
|
||||
STA $602
|
||||
RTS
|
||||
|
||||
DecDigits
|
||||
LDY #0 ; _DecDigits
|
||||
_PrintDecDigit
|
||||
LDA _bcd,Y
|
||||
JSR PutChar
|
||||
INY
|
||||
CPY #6
|
||||
BNE _PrintDecDigit
|
||||
_JumpNextFormat
|
||||
; BRA NextFormat ; always
|
||||
JMP NextFormat ; JMP :-(
|
||||
LDX #0 ; _DecDigits
|
||||
JMP PrintReverseBCD
|
||||
|
||||
PrintDec4
|
||||
LDA #0 ; skip 0 digits
|
||||
LDA #4 ; skip 0 digits
|
||||
BNE _PrintDec ; always
|
||||
|
||||
; % Bin 1 Byte normal 1
|
||||
; d Bin 1 Byte inverse 1
|
||||
; =-=-=-=-=-=-=-=-=-=-
|
||||
;========================================================================
|
||||
PrintBinInv
|
||||
LDA #$81
|
||||
BNE _PrintBin
|
||||
|
|
@ -395,8 +388,10 @@ _FlipBit
|
|||
TAX
|
||||
DEY
|
||||
BNE _Bit2Asc
|
||||
BRA _JumpNextFormat ; always
|
||||
|
||||
_JumpNextFormat
|
||||
; BRA NextFormat ; always
|
||||
JMP NextFormat ; JMP :-(
|
||||
|
||||
/*
|
||||
JSR GetWidth
|
||||
JSR NxtArgXY GetArgAddr
|
||||
|
|
@ -404,6 +399,17 @@ _FlipBit
|
|||
JSR PrintBuf
|
||||
*/
|
||||
|
||||
; =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
|
||||
;DEBUG
|
||||
;LDX _bcd+0
|
||||
;LDY _bcd+1
|
||||
;LDA _bcd+2
|
||||
;STX $600
|
||||
;STY $601
|
||||
;STA $602
|
||||
;RTS
|
||||
; =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
|
||||
|
||||
; === Utility ===
|
||||
/*
|
||||
_CmpMeta = CmpMeta+1
|
||||
|
|
@ -426,17 +432,20 @@ CmpMeta
|
|||
BRA IncWidth
|
||||
*/
|
||||
|
||||
;========================================================================
|
||||
PutChar
|
||||
STA $400 ; NOTE: self-modifying!
|
||||
INC PutChar+1 ; inc lo
|
||||
RTS
|
||||
|
||||
;========================================================================
|
||||
; @return &aArg[ iArg ] -> XY
|
||||
GetArgAddr
|
||||
LDX _pArg+0 ; Low Byte
|
||||
LDY _pArg+1 ; High Byte
|
||||
RTS
|
||||
|
||||
;========================================================================
|
||||
; @return _Arg[ _Num ]
|
||||
NxtArgByte
|
||||
LDY #00 ; _iArg NOTE: self-modifying!
|
||||
|
|
@ -448,6 +457,7 @@ IncArg
|
|||
@_SamePage
|
||||
RTS
|
||||
|
||||
;========================================================================
|
||||
; @return X,Y 16-bit arg value
|
||||
NxtArgXY
|
||||
JSR NxtArgByte
|
||||
|
|
@ -456,16 +466,6 @@ NxtArgXY
|
|||
TAY
|
||||
RTS
|
||||
|
||||
; printf( format, ... )
|
||||
; Adjust pointer to next char in format
|
||||
IncFormat
|
||||
INC _pFormat+0
|
||||
BNE _SamePage
|
||||
INC _pFormat+1
|
||||
_SamePage
|
||||
RTS
|
||||
|
||||
ToHexXY
|
||||
; Hex2/Hex4 temp
|
||||
_bcd ds 6 ; 6 chars for printing dec
|
||||
_val dw 0
|
||||
|
|
|
|||
Loading…
Reference in New Issue