mirror of https://github.com/stid/woz64.git
208 lines
5.5 KiB
NASM
208 lines
5.5 KiB
NASM
|
|
#importonce
|
|
#import "math.asm"
|
|
#import "../core/screen.asm"
|
|
#import "../libs/module.asm"
|
|
|
|
|
|
// ========================================================
|
|
// ////// MACROS //////////////////////////////////////////
|
|
// ========================================================
|
|
|
|
.macro PrintLine(stringAddr) {
|
|
lda #<stringAddr // Low byte
|
|
ldx #>stringAddr // High byte
|
|
jsr Print.printLine
|
|
}
|
|
|
|
.macro PrintChar() {
|
|
jsr Print.printPetChar
|
|
}
|
|
|
|
.macro PrintNewLine() {
|
|
jsr Screen.screenNewLine
|
|
}
|
|
|
|
|
|
.filenamespace Print
|
|
|
|
* = * "Print Lib"
|
|
|
|
// ========================================================
|
|
// ////// METHODS /////////////////////////////////////////
|
|
// ========================================================
|
|
|
|
|
|
// --------------------------------------------------------
|
|
// init -
|
|
// Module Init.
|
|
// --------------------------------------------------------
|
|
init: {
|
|
rts
|
|
}
|
|
|
|
// --------------------------------------------------------
|
|
// toDebug -
|
|
// Print debug info.
|
|
// --------------------------------------------------------
|
|
toDebug: {
|
|
ModuleToDebug(module_type, module_name, version)
|
|
rts
|
|
}
|
|
|
|
// --------------------------------------------------------
|
|
// printPetChar -
|
|
// Convert a Char from PET ASCII and print it out on Screen
|
|
//
|
|
// Parameters:
|
|
// A = PET ASCII char to print
|
|
// --------------------------------------------------------
|
|
printPetChar: {
|
|
phr
|
|
jsr Print.petCharToScreenChar
|
|
jsr Screen.sendChar
|
|
plr
|
|
rts
|
|
}
|
|
|
|
// --------------------------------------------------------
|
|
// printLine -
|
|
// Print a Null terminated SCREEN ASCII string to screen.
|
|
//
|
|
// Parameters:
|
|
// A = low byte string address
|
|
// X = low byte string address
|
|
// --------------------------------------------------------
|
|
printLine: {
|
|
ldy #$00
|
|
sta MemMap.SCREEN.TempStringPointer
|
|
stx MemMap.SCREEN.TempStringPointer+1
|
|
printLoop:
|
|
lda (MemMap.SCREEN.TempStringPointer), y
|
|
cmp #0
|
|
beq exit
|
|
jsr Screen.sendChar
|
|
jmp printLoop
|
|
exit:
|
|
rts
|
|
}
|
|
|
|
// --------------------------------------------------------
|
|
// byteToHex -
|
|
// Convert a byte to an HEX value
|
|
//
|
|
// Parameters:
|
|
// Y = Byte to Convert
|
|
//
|
|
// Result:
|
|
// A = msn ascii char result
|
|
// X = lns ascii char result
|
|
// --------------------------------------------------------
|
|
byteToHex: {
|
|
pha //save byte
|
|
and #%00001111 //extract lsn
|
|
tax //save it
|
|
pla //recover byte
|
|
lsr //extract...
|
|
lsr //msn
|
|
lsr
|
|
lsr
|
|
pha //save msn
|
|
txa //lsn
|
|
jsr binhex1 //generate ascii lsn
|
|
tax //save
|
|
pla //get msn & fall thru
|
|
//
|
|
// convert nybble to hex ascii equivalent...
|
|
binhex1:
|
|
cmp #$0a
|
|
bcc binhex2 //in decimal range
|
|
sbc #$09 //hex compensate
|
|
rts
|
|
binhex2:
|
|
eor #%00110000 //finalize nybble
|
|
rts //done
|
|
}
|
|
|
|
// --------------------------------------------------------
|
|
// petCharToScreenChar -
|
|
// Convert a PET ASCII Char to a SCREEN ASCII Char
|
|
//
|
|
// Parameters:
|
|
// A = PET ASCII Byte to Convert
|
|
//
|
|
// Result:
|
|
// A = Converted ASCII SCREEN Char
|
|
// --------------------------------------------------------
|
|
petCharToScreenChar: {
|
|
// $00-$1F
|
|
cmp #$1f
|
|
bcs !+
|
|
sec
|
|
adc #128
|
|
jmp convDone
|
|
// $20-$3F
|
|
!:
|
|
cmp #$3f
|
|
bcs !+
|
|
jmp convDone
|
|
// $40-$5F
|
|
!:
|
|
cmp #$5f
|
|
bcs !+
|
|
sec
|
|
sbc #$40
|
|
jmp convDone
|
|
// $60-$7F
|
|
!:
|
|
cmp #$7F
|
|
bcs !+
|
|
sec
|
|
sbc #32
|
|
jmp convDone
|
|
// $80-$9F
|
|
!:
|
|
cmp #$9F
|
|
bcs !+
|
|
sec
|
|
adc #64
|
|
jmp convDone
|
|
// $A0-$BF
|
|
!:
|
|
cmp #$BF
|
|
bcs !+
|
|
sec
|
|
sbc #64
|
|
jmp convDone
|
|
// $C0-$DF
|
|
// $E0-$FE
|
|
!:
|
|
cmp #$FE
|
|
bcs !+
|
|
sec
|
|
sbc #128
|
|
jmp convDone
|
|
// $FF
|
|
!:
|
|
lda $5E
|
|
convDone:
|
|
rts
|
|
}
|
|
|
|
|
|
// ========================================================
|
|
// ////// DATA ////////////////////////////////////////////
|
|
// ========================================================
|
|
|
|
* = * "Print Lib Data"
|
|
module_type: .byte Module.TYPES.LIB
|
|
version: .byte 1, 0, 0
|
|
|
|
.encoding "screencode_mixed"
|
|
module_name:
|
|
.text "print"
|
|
.byte 0
|
|
|
|
#import "../core/mem_map.asm"
|
|
|